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I.  INTRODUCTION 


Presentation  or  information  using  computet  aided  video 
graphical  or  pen  plotting  devices  has  beccae  very  important 
and  extreaely  useful  in  almost  every  profession. 
Three-dimensional  computer  graphics  is  being  utilized  to 
display  air  combat  training  in  the  ailitary,  xray  scans  of 
the  huaan  body  in  aedecine,  and  blue  prints  and  stress 
characteristics  for  aechanical  parts  in  industry.  It  has 
even  been  used  to  aake  animated  aovies.  Since  one 
aanufacturer  of  graphical  machines  has  net  cornered  the 
market,  software  and  hardware  standards  have  not  been 
established.  Each  aachine  has  a  different  screen  area, 
smallest  resolution  size,  and  data  structure.  The  lack  of  a 
standard  graphics  language  becomes  a  source  of  expensive 
software  re-writing  every  time  a  newer  sore  capable  graphics 
aachine  is  purchased. 

The  existing  video  graphical  devices  can  be  divided  into 
these  four  distinct  categories:  direct  view  storage  tubes; 
vector  generator  cathode  ray  tubes  (CRT's);  raster  scan 
CRT's;  and  plasma  panels.  The  first  three  types  of  devices 
have  acheived  high  resclution  displays  and  are  most  commonly 
used.  As  a  minimum,  the  hard  copy  devices  have  the 
capability  of  pen  plotting  and  the  aore  advanced  machines 
produce  shaded  images  using  electrostatic  plotting.  Except 
for  a  plasaa  panel  device,  access  to  the  above  graphic 
aachines  was  readily  available  at  the  Naval  Postgraduate 
School.  Although  all  of  these  devices  were  supported 
through  fortran  IV,  the  software  for  one  aachine  exhibited 
little  discernible  similarity  to  that  for  another.  Each 
graphics  device  did  have  its  own  aanual,  but  the  actual 
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efficient  utilization  of  an  output  terminal,  at  or  near  its 
designed  capability,  was  typically  left  fcr  experimental 
realization . 


The  experimental  process,  learning  one  machine's 
software  idiosyncrasies,  required  an  amount  of  time  which 
was  generally  not  reduced  when  learning  these  of  a  second. 
The  high  cost  of  software  and  this  lengthy  device  learning 
process  were  the  two  main  incentives  urging  the  development 
cf  a  graphics  software  package  whicn  could  he  used  with  any 
display  device.  Since  Fortran  IV  has  become  a  universally 
supported  language,  it  was  selected  as  the  development 
software.  Graphical  presentations  normally  involve  one  of 
the  follcwing  four  types:  two-dimensional  (2-D)  graphs;  2-0 
images;  three-dimensional  (3-D)  graphs;  or  3-D  images.  The 
first  two  types  of  presentations  have  been  well  documented 
and  the  theory  for  both  has  been  fully  developed.  The 
theory  fcr  and  usage  of  3-D  graphs  has  also  received 
considerable  attention.  Programs  for  their  display  have 
been  published  in  many  software  languages.  Additionally, 
the  Naval  Station  in  Keyport,  Washington  was  interested  in  a 
real  time  3-D  Torpedo  presentation  of  the  terpedo  test  area 
for  the  Range  Safety  Officer. 

For  these  reasons,  the  scope  of  this  research  was 
limited  to  developing  a  three-dimensional  (image)  graphics 
package,  written  in  Fortran,  which  would  develop  a  data  set 
that  could  be  displayed  on  any  selected  device.  A  portable 
graphics  package  would  reduce  software  costs  for  interfacing 
with  a  new  device  to  a  minimal  effort.  Usage  of  a  3-D 
graphics  software  throughout  a  large  organization,  like  the 
Navy,  would  reduce  a  programmer's  learning  experience  to  a 
cne  time  effort.  An  individual  would  then  become  a  portable 
expert. 
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II.  IJi£££z£in£N£iONAi  SRA£iji£^ 


The  proper  display  of  a  3-D  object  on  a  2-D  surface, 
such  as  a  video  screen  or  a  piece  of  paper,  by  a  computer 
required  that  a  complete  numerical  description  of  the 
object's  boundaries  or  surfaces  be  supplied  for  processing. 
The  two  generally  accepted  aethods  used  to  represent  3-D 
objects  are: 

1.  "  surface  definition  using  aatheaatical  equations; 

2.  and  surface  approxiaation  by  planar  polygonal 
aosaic . " 

1 

Either  description  required  that  a  coordinate  systea  be 
constructed  to  provide  the  nuaerical  values. 

A.  DISPLAY  CF  AM  OBJECT  AMD  ITS  ROTIOH 

A  right-handed,  cartesian  coordinate  systea  provided  an 
acceptable  and  aost  generally  understood  systea  to  describe 
3-D  objects.  The  unit  of  aeasureaent  was  aribitrary  with 
the  only  reguireaent  that  it  was  consistent.  This  systea 
has  been  labeled  the  Object  coordinate  systea.  The 
coaplexity  of  the  satheaatics  required  to  define  the 
surfaces  of  an  object  with  equations  was  only  surpassed  by 
the  algoritbas  required  to  project  the  iaage  onto  a  2-D 
surface  or  alter  the  viewing  aspect.  It  was  auch  easier, 
both  for  understanding  and  utilization,  to  consider  each 
cbject  as  a  set  of  one  or  sore  polyhedra.  Since  a 
polyhedron  consists  cf  four  or  aore  planar  sides,  called 
polygons,  the  realistic  approxiaation  of  non-planar 
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surfaces,  such  as  a  sphere,  was  deterained  by  the  nuater  of 
polygons  used.  By  definition,  a  polygon  was  a  flat  surface, 
a  plane,  founded  by  three  or  aore  connected,  straight  lines, 
called  edges.  Two  edges  intersected  at  a  single  point,  a 
vertex  of  the  polygon. 

Using  the  object  coordinate  systea,  a  vertex  was  defined 
by  its  x,  y,  and  z  values.  Kith  the  origin  placed  at  the 
geoaetric  center  of  the  object  being  described,  the  location 
of  the  vertices  was  siaplified.  By  indexing  each  vertex  as 
it  was  specified,  an  edge  was  deterained  by  the  indices  of 
the  two  vertices  which  were  its  endpoints.  Similarly, 
indexing  each  edge  allowed  the  description  of  a  polygon 
using  the  indices  of  the  edges  foraing  its  boundary, 
finally,  a  polyhedron  was  specified  with  the  indices  of  the 
polygons  which  foraed  its  planar  surfaces. 

Hith  this  type  of  object  definition,  object  aotior  was 

itpleaented  by  aoving  its  vertices  in  a  linear  aanner. 

Linear  aoveaent  of  the  vertices  preserved  the  straightness 

of  the  polygonal  edges  and  the  structural  purity  of  each 

polyhedron.  Translation,  which  was  the  linear  displacement 

of  an  object,  was  defined  by  tbe  subtraction  of  a  distance, 

T  ,  T  ,  or  1  ,  froa  the  respective  vertex  coordinate  value, 
x  y  2 

x,  y,  or  z.  Thus,  translation  produced  an  entirely  new  set 
of  vertex  values,  which  could  be  stated  as: 

x*  *  x  -  T 

x 

yt  *  y  -  T 

y 

*•  »  z  -  T 

z 

Translation  coupled  with  rotation  of  a  point  provided 
the  ability  to  describe  any  3-D  action.  Rotation  of  a  point 
9  was  aost  easily  explained  in  two  diaensicns.  Thus,  in 
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figure  1,  F  was  rotated  through  the  angle  theta  about  the 
origin  into  the  point  P'  by  the  transf oraaticc: 

x*  *  x  cos  0  ♦  y  sin  0 

y'  ■  x  sin  0  -  y  cos  0 

This  derivation  for  2-D  rotation,  as  provided  in  Figure  1, 
vas  directly  applied  to  3-D  rotation  about  the  2-axis.  The 
angle  or  rotation  Mas  Measured  in  the  clockwise  direction 
looking  iroa  the  positive  infinity  of  the  axis  about  which  a 
point  was  tc  be  rotated.  Confining  the  rotation  of  points, 
and  thus  objects,  to  a  conbination  of  2-D  rotations  greatly 
siaplified  the  coaputer  iaplinentation . 

The  last  transforaation  utilized  to  alter  the  viewing 

aspect  of  an  object's  iaage  was  scaling.  This  algcritha 

reguired  that  the  vertex  coordinate  values  be  aultiplied  by 

the  scale  factors  5  ,  S  ,  and  S  .  Provided  the  scale 

x  y  z 

factors  were  of  egual  Magnitude,  the  scaling  was  linear  and 
preserved  the  polyhedron's  shape. 

To  project  a  3-D  object  onto  a  2-D  surface  reguired  two 

transforaaticns.  The  first,  called  the  viewing 

transforaaticn,  napped  the  object  coordinates  into  a  systea 

which  had  its  origin  at  the  viewpoint,  cr  the  eye,  cf  the 

graphic  software's  user.  This  ccordinate  systea  preserved 

the  object's  linearity  and  produced  the  isage  of  the  cbject 

as  seen  by  the  "eye".  Hence,  it  was  called  the  Bye 

coordinate  systea.  Its  Z  -axis  was  used  tc  represent,  or 

e 

aeasure,  the  depth  of  the  iaages.  The  system's  x  and  X 

e  e 

axes  were  aligned  with  the  horizontal  and  vertical 

diaensions  of  the  display  screen,  respectively.  As  shewn  in 
figure  2 ,  the  viewing  transforaaticn  constructed  a 
left-handed  cartesian  coordinate  systea. 
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The  second  transformation  simply  projected  the  eye 
coordinate  points  onto  the  plane  of  the  display  screen. 
This  ertirs  transformation  was  easily  constructed  and 
explained  in  Section  III.  E.  2. ,  using  figure  12. 


6+ <P +0=180° 

cos/?  =cos  (7r-0-$;  sin/?=  sim(7 r-<f>-$) 

-cos  (0+0)  %  =  Si«($6+0) 

=-COS0COS0  +  SiH0Sl»/0  =  COS0S!N0  +  Si«0c.OS0 
%  ='%  COS  0  +  *6  Sltf  0  %  =  \  Si V0  +  %  COS0 

Y'»xsw0 -ycos0  X'=  y  COs0  +  yS/*/0 


Figure  1  -  TWO-D  ROTATION  OF  A  EOINT 
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Pigure  2  -  EYE  COORDINATE  SYSTEM 
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IMAGE  REALISM 


The  perspective  projection  of  an  object  onto  a  screen 
often  produced  points,  and  thus  vectors,  which  could  net  be 
displayed.  These  vectors  could  be  located  behind  the 
observer  cr  simply  off  the  screen.  The  first  case  would 
have  caused  erroneous  vectors  to  be  displayed,  which  cculd 
not  actually  be  seen.  Typically,  the  second  would  generate 
program  failure,  because  the  machine  cculd  not  display 
points,  cr  vectors  located  off  the  screen.  Therefore,  the 
non-viewable  portion  of  any  image  had  to  be  eliminated  or 
cut  away  from  the  viewable  section.  This  procedure  was 
called  image  clipping. 

Inital  3-D  displays  portrayed  objects  as  wire-framed 
images.  A  polyhedron  presented  in  Figure  3,  was  shown  with 
all  edges  displayed.  Eecause  this  was  a  simple  body,  the 
dedicated  observer  usually  recognized  it  as  a  representation 
cf  a  3-D  ooject.  However,  the  correct  viewirg  aspect  (i.e. 
which  surfaces  were  closest  to  the  viewer)  could  not 
positively  be  ascertained.  For  this  reason,  the  first 
effort  to  have  a  computer  determine  a  more  realistic 
presentation  was  the  hidden  line  removal  algorithm.  Using 
one  of  these  algorithms,  the  display  shown  in  Figure  4  was 
drawn.  The  proper  viewing  aspect  was  instantly  apparent 
provided  the  viewer  recognized  the  display  as  a  3-D  image. 

The  next  computer  graphics  effort  to  increase  display 
realism  was  to  have  the  computer  generate  solid  polygonal 
surfaces.  This  required  that  the  display  device  had  a 
shading  or  full  color  capability.  For  realistic  images,  the 
ccmputer  had  to  possess  either  a  software  or  hardware 
implemented  hidden  surface  removal  algorithm.  Now,  the 
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viewable  image's  surfaces  were  displayed  as  shaded  or 
colored  polygonal  planes  with  user  supplied  shading  or 
cclcrs. 

Host  recent  reasearch  has  concentrated  on  producing 
realistic,  ccaputer  generated  shading  algorithas.  Using  the 
aost  coaplex  shading  procedures  particular  eleaents  of  iaage 
cealisa  have  all  been  acheived.  However,  a  single  universal 
solution  to  the  proper  shading  of  inages  has  not  been 
realized,  due  to  different  types  of  light  sources,  various 
aaterial  textures,  and  the  lack  of  a  unifora  aatorial 
reflectivity  of  light.  Tc  greatly  decrease  display 
processing  tiae,  aost  of  the  iaage  realisa  programs  were 
iapleaented  in  hardware  after  procedure  refinement.  Thus, 
computer  graphics  realisa  has  become  a  function  of  software 
tiae  available  or  of  the  cost  of  coaplex  hardware. 


C.  GRAPHICS  SOFTWARE  STRUCTURE 


In  crder  to  provide  a  "state-of-t he  act",  computer 
graphics  software  package,  the  following  capabilities  were 
determined  tc  be  the  ainiaal  requirements: 

1.  Object  to  screen  coordinate  t ransf cr aation ; 

2.  Clipping  algorithn; 

3.  Iaage  scaling; 

4.  Iaage  translation; 

5.  Iaage  rotation; 

6.  Iaage  shading; 

7.  Hidden  line  reaoval; 

8.  Hidden  surface  reaoval. 

These  capabilities  enabled  the  viewing  of  an  image  froa  any 
aspect  and  the  generation  of  realistic  displays  in  "real 
tine". 

The  data  structure  utuilized  was  selected  for  its  ease 
of  user  iapleaentation  and  its  appicability  to  the  input 
ceguireaents  of  the  eight  procedures  above.  To  explain  the 
capabilities  above  (in  Section  III.),  each  pcint,  or  vertex, 
was  defined  as  a  one  by  four  vector,  such  as: 

[x  y  2  a],  where  a  was  a  scale  factor  of  the  3-D 

vector  (noraally  a  ■  1)  . 

This  type  of  vector  representation  allowed  all 
transfor aaticns  to  be  defined  as  a  four  by  four  natrix. 
While  the  coaplete  logic  for  aatrix  and  vector  utilisation 
was  provided  in  the  Appendices  of  Ref.  [1),  a  key  advantage 
was  that  it  facilitated  the  concatenation  of 
transforaatiens.  Concatenation  of  matrices  can  be  simply 
explained  with  the  fcllowing  example. 
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[X* 

y' 

z ' 

1  J  a  £x  y  z  1]  A 

[X” 

y" 

2" 

t]  a  [X*  y'  z'  1  ]  B 

Can 

be 

equivalently  stated  as: 

[X" 

Y" 

2" 

1]  -  [  x  y  z  1  ]  I, 

where  J  «l  B 


In  the  neit  section,  the  algoritams  used  to  develops  the 
graphics  software  package  were  briefly  presented.  Since 
every  display  device  has  a  scaliest  hcrizcntal  and  vertical 
rescluticn  size,  the  proper  construction  of  an  image 
required  the  com putational  utilization  of  these  machine 
dependent  features.  An  easy  means  to  visualize  this  concept 
for  any  device  was  to  construct  a  n  by  a  dot  matrix,  where  n 
was  the  number  of  horizontal  lines  and  ■  was  the  number  of 
dots  per  line,  as  shown  in  Figure  5.  Thus,  to  display  an 
image  required  that  line  segments  be  drawn  between  the  dots. 
Similarly,  it  was  necessary  to  determined  the  screens  center 
in  order  to  position  the  image  in  the  middle  cf  the  display 
surface.  The  following  terms  were  used  consistently  to 
define  these  guanties  (see  Figure  6) : 


V  -  m/2,  was  half  of  the  horizontal  resolution  size; 
sx 

V  a  n/2,  was  half  of  the  vertical  resolution  size; 
sy 

V  >  m/2,  was  the  screen's  horizontal  center; 
cx 

V  »  n/2,  was  the  screen's  vertical  center, 
cy 
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Figure  5  -  N  BY  M  DOT  MATRIX  SCREEN  REERESENTATICN 


31 


III.  GRAPHICS  $OflWAR£  £<2S£Q1!JNIS 


In  this  section  the  algorithm  for  each  component  was 
briefly  presented  along  with  any  figures  and  general  flow 
charts  which  aided  with  the  explanation.  For  a  detailed 
flow  chart  and  Fortran  program  listing  see  Appendix  A. 


A.  OBJBCI  COORDINATE  SYSTEM  -THE  DATA  BASE 


The  description  of  a  3-D  object  with  this  coordinate 
system  allowed  the  user  total  flexibility  in  the  selection 
of  a  convenient  systee  of  measurement  and  origin  placement. 
Additionally,  the  user  selected  the  viewpoint,  which 
determined  the  viewing  axis  and  thus,  the  initial  viewing 
aspect.  The  viewing  axis  was  the  line  defined  by  the 
viewpoint  and  the  object  system's  origin. 

Image  definition  started  with  the  specification  of  its 
vertices.  As  each  vertex  was  input  to  the  computer,  it  was 
assigned  a  consecutive  index  number.  Similarly,  as  the 
other  sets  of  image  elements  (edges,  polygons,  and  polyhera) 
were  input,  they  were  consecutively  indexed  also.  The  x,  y, 
and  z  object  coordinate  vales  were  stored  in  three  real 
arrays,  XE(i),  YE  (i)  ,  and  ZE(i).  Integer  arrays  were  used 
to  store  indices  decribing  edges,  polygons,  and  polyhedra. 
An  edge  was  described  by  storing  the  index  of  one  vextex  in 
EDGEI(i)  and  the  second  in  EDGE2(i).  A  polygon  was  defined 
by  storing  the  indices  of  the  edges  which  composed  its 
boundry  in  the  array  POLYGN  (i, j) .  The  indices  of  these 
edges  must  be  input  so  that: 


r  -T-- 


{EDGE  1  (i)  OB  EDGE2  (i)  }  »  (EDGE  1  (i  ♦  1)  CB  EDGE2  (i  ♦  1 )  } 

The  polygons  which  described  a  polyhedrcn  were  input 
consecutively  to  reduce  storage  requirements.  Thus,  a 
polyhedron  was  described  by  storing  the  index  of  the  first 
and  the  last  polygon  in  the  array  P0LYHE<i,2).  This  data 
structure  allowed  excellent  iaace  flexibility,  since  any 
polyhedron  could  be  rotated,  scaled,  or  translated  without 
altering  the  reaaining  display. 


E.  IMAGE  SCALING 


The  scaling  transforaation  aultiplied  the  object 


and  z  values 

by 

the  scale  factors 

S  ,  S  ,  an 

*  y 

respectivley . 

If 

the  scale  factors 

used  were  not 

iaage  distortion 

resulted. 

[x*  r*  z* 

1] 

*  [  X  Y  Z  1]  S,  where 

5  *  [s  0  0 

x 


d  S 

z 

equal. 


0 


0 


S  0 

y 


c 


0  0  s  c 

z 

0  0  0  1 


C.  TBANSLAT10N 


The  translation  of  an  iaage,  in  object  coordinates, 

represents  the  physical  aoveaent  of  a  3-D  object  in  the  x, 

y,  or  z  directions  by  the  aaounts  T  ,  T  ,  or  T  , 

x  y  z 

respectively  (or  any  coabinaticn  of  the  three) .  The 


transforaation  2  can  be  stated  in  aatrix  fcra  as: 


D.  IMAGE  ROTATION 


The  rotation  of  a  3-D  object  was  broken  into  four 
distinct  categories.  Each  involved  the  rotation  cf  the 
image  through  an  angle,  theta,  about  an  axis  in  object 
coordinates.  The  following  axes  of  rotation  define  the  four 
categories: 

1 •  X-Axis  Rotation 

The  image  was  rotated  about  the  X-axis  through  the 

angle  theta.  The  angle  was  measured  in  the  clockwise 

direction  abcut  the  origin,  looking  towards  the  origin  from 

the  positive  X-infinity.  The  transformation,  R  ,  was 

“x 

defined  as: 

0  0  0 

cos  0  -sin  0  0 

sin  0  cos  9  0 

0  0  1 

2 •  Irlxis  Rotation 

The  image  was  rotated  through  the  angle  theta  abcut 
the  X-axis,  where  the  angle  was  measured  as  stated  abcve  in 
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wA 


a  =  <x'-x)/R,  b  *  (y'-y)/R,  c  =  (z»-z)/R,  where: 
x  y  z 

R  *  V(*'-*)*  ♦  (y'-y)*  ♦  (z'-z)2 

Cne  of  the  points,  (x,y,z),  was  translated  tc  the 
origin  using  the  transformation  where: 


Now,  the  arbitrary  axis  was  rotated  into  the  Z-axis, 
by  first  rotating  it  about  the  X-axis  through  the  angle 
alpha,  as  shewn  in  Figure  7.  This  transformation,  R  ,  which 

Flaced  the  arbitrary  axis  in  the  X-Z  plane,  was  defined  as: 


where: 


cosCy  =  c  /? 

z 


sinQf  *  -b  /v 

y 


The  arbitrary  axis  was  then  rotated  about  the  i-axis 
through  an  angle  beta,  as  shewn  in  Pigure  8,  into  the 
2~a*is.  This  transformation  matrix,  R  ,  was  described  as  : 


37 


V 


0 


0 


£ 


2 


a 

x 


0  10  0 

-a  0  v  0 
x 


C  0  0  1 


The  rotation  about  the  arbitrary  axis  through  the 
angle  theta  was  now  defined  as  a  rotation  about  the  Z-axis. 
Ihus,  the  transformation,  R  ^ ,  was  exactly  as  described  in  3. 

above  for  E  .  The  remaining  task  was  to  return  the 
~z 

arbitrary  axis,  and  the  inage,  back  to  its  original  special 


position.  This  was  acconplished  by  multiplying  with  the 

inverse  of  the  transfornations  2,  R  ,  and  B  in  the  reverse 

“1  '2 

order.  Osing  the  principle  of  concatenation,  the  total 


transformation  nay  be  stated  as  : 


1 


H 

~2 


H 

"3 


-1 


1 


r 


E .  CCOBDIN A1E  TRANSFORMATIONS 

To  display  a  3-D  object  on  a  2-D  screen,  a  perspective 
projection  vas  perforated  so  that  an  object,  such  as  a  cube, 
when  viewed  erthograph ically  (as  on  the  screen)  gave  the 
proper  preception  of  a  3-D  form. 

1*  QbJiit  £o  Eje  £oor dilate  lraasfs£ma t ica 

The  left-handed.  Eye  coordinate  system  was  utilized 

to  determine  the  proper  perspective  view  of  any  object.  To 

eliminate  the  extremely  complex  viewing  angle  computations 

incurred  by  placing  the  observer  close  to  the  object  (i.e. 

in  the  near  field) ,  the  viewer  was  located  an  infinite 

distance  frem  the  object  coordinate  origin  cn  the  viewing 

axis.  This  allowed  the  rays  emanating  from  an  observers  eye 

to  all  be  parallel  to  the  viewing  axis,  the  2  -axis,  at  the 

€ 

object.  Parallel  viewing  rays  allowed  an  orthographic 

projection  of  the  3-D  object  onto  a  2-D  screen  with  the 

Z  -axis  representing  viewing  depth.  The  X  and  Y  axes  were 
e  e  e 

then  aligned  with  the  screen's  horizontal  and  vertical 

dimensions,  respectively.  The  eye  coordinate  system,  as 

shown  in  figure  9,  preserved  the  linearity  of  the  image. 

The  transformation  from  the  object  to  the  eye  system  was 

called  the  viewing  transformation,  V ,  and  was  defined  as: 

(X  Y  2  1]-[XXZ1]V,  where: 

e  e  e 

1  2  3  4 


SC  RE 
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Pricr  to  this  first  coordinate  transformation ,  the 
cbject  coordinate  values  for  the  vertices  were  placed  in  the 
arrays  XS(i),  YS(i),  and  ZS(i).  These  arrays  were  used  to 
generate  the  displayable  information  by  the  clipping,  hidden 
line  removal,  or  hidden  surface  removal  algorithms.  This 
prevented  the  original  object’s  description  from  being 
destroyed  or  altered  in  these  three  procedures  and  allowed 
the  graphics  package  to  subsequently  present  different 
viewing  aspects.  Additionally,  since  clipping  could  remove 
an  entire  edge,  the  vertex  indices  were  stored  in  EDGE  (2, i) 
as: 

EDGE  ( 1  , i)  *  EDGE1  (i)  and  EDGE  (2, i)  *  EDGE2  (i) 


The  transformation  matrices  specifying  V  were  formed 
as  shown  below  when  the  viewpoint  was  located  at  (a,b,c)  (in 
object  coordinates)  and  the  object  was  centered  at  the 
crigin.  Transformation  2^  translated  the  viewpoint  tc  the 

origin  by  : 

1*10  0  0 
•1 

0  10  0 
0  0  10 
-a  -b  -c  1 


A  left-handed  cartesian  coordinate  system  was  formed 


with  T  ,  where: 
2 


0  0 


0  0-1 
0  1  0 
coo 
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As  shown  in  Figure  10,  the  system  was  rotated  about 

the  Y  -axis  through  the  angle  theta  which  pointed  the 

e 

Z  -axis  at  the  point  (0,G,c).  The  tra ns f creation  1  was 

«  3 

specified  as  : 


ccs  € 
0 

-sin  0 
0 


1 

0 

0 


cos  6  *  a/v  , 
v  -  ♦  b* 


sin  0 
0 

CCS  % 
0 


,  where: 


sin  0  *  b/v 


Next,  the  coordinate  system  was  rotated  about  the 

X  -axis  through  the  angle  phi,  as  shown  in  Figure  11.  This 
e 

pointed  the  Z  -axis  towards  the  object  space  crigin,  where: 

e 


10  0  0 

0  cos  0  -sin  0  0 

0  sin  0  cos  0  0 

0  0  0  1 


for: 


cos  0  •  v/(Ta*ca)  ,  sin  0  *  c/(»^c*| 

4 


This  transformation  arbitrarily  selected  the  viewing 

axis  as  the  line  between  the  viewpoint  and  the  object 

coordinate  axis.  It  also  placed  the  X  -axis  in  the  cbject 

e 

system's  Z  *  c  plane.  Since  the  object  cccrdinate  system 

was  user  defined  the  logical  initial  viewing  aspect  was  to 
look  at  the  system's  orgin  or  center.  The  initial  view  due 
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to  the  position  of  the  X  -axis  was  acceptable  and  basically 

e 

irrelevant  since  the  isage  cculd  be  rotated,  translated,  or 
scaled  tc  provide  any  desired  viewing  aspect. 


2.  lye  tc  Screen  Coordinate  Transformation 


This  transfor nation  completed  the  perspective 
projection  of  the  3-E  object  onto  the  screen.  As  sheen  in 
Figure  12,  tie  display  was  generated  by  simply  projecting  an 
object's  eye  coordinates  onto  the  plane  cf  the  screeen.^ 

For  a  square  display  screen,  one  with  equal  horizontal  and 

vertical  resolution,  the  image  was  constructed  without 
distortion,  by  the  following  transformation: 


X 

S 

S 

<1 

/Z  )  V  ♦ 

V  , 

where 

s  = 

a/b 

s 

X 

t 

e  e  sx 

cx 

X 

I 

2 

s 

(I 

/Z  )  V  ♦ 

V  , 

where 

s  =* 

a/b 

s 

1 

e  e  sy 

cy 

y 

Z 

X 

-1/Z 

s 

e 

If 

the 

V 

iewing  sere 

en  was 

not  sguare 

then 

modified 

as 

shown: 

If 

V 

>  ¥ 

then  S  = 

(a/b) 

(V  /V 

) 

sx 

sy 

X 

sy 

sx 

If 

V 

>  ¥ 

then  S  = 

(a/b) 

(V  /V 

) 

sy 

sz 

y 

sx 

sy 

S 
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This  modification  was  necessary  so  that  an  un-distorted 
image  could  be  displayed  over  an  entire  rectangular  screen. 
Hithout  it  cce  display  dimension,  typically  the  horizontal, 
would  have  been  elongated. 


!. 


DISPLAY  CLIPPING 


The  clipping  procedure  constructed  a  viewing  pyramid 
which  eliminated  the  undesirable  effects  of  the  perspective 
projection  froa  object  to  screen  coordinates,  which  were: 

1.  points  and  thus  objects  may  have  been  located  behind 
the  viewpoint; 

2.  and  objects  may  have  exceeded  the  limits  of  the 
viewpoint  (i.e.  were  located  off  the  screen  -  were 
non-displayable) . 

The  clipping  of  an  image  was  performed  on  the  image's  data 
while  it  was  expressed  in  eye  coordinates  tc  simplify  the 
operation  (as  explained  in  Ref.  [1]). 

As  shown  in  Figure  13,  the  geometry  cf  the  viewing 
pyraaid  dictated  that  for  a  point  to  te  visible  the 
following  conditions  must  be  satisfied: 


-2  < 

S 

X  <  Z 

(D 

e 

X 

e  e 

-2  < 

S 

Y  S  2 

(2) 

e 

Y 

e  e 

Thus, 

a 

transformation  from  eye  coordinates 

"clipping" 

coordinate 

system  was  described  as: 

[X  Y  2  1]  =  [X  Y  2  1]* 

c  c  c  €  e  € 

*  *  a/b  0  0  0 

0  a/b  0  0 

0  0  10 

0  0  0  1 
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where : 
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Figure  14  -  DISPLAY  SCREEN  DIVISION  AND  CODING 


This  coordinate  system  was  established  tc  display  only 

viewable  points.  Additionally,  if  an  edge's  endpcirt  was 

located  outside  of  the  viewirg  pyramid,  this  routine  located 

a  point  on  the  edge  which  satisfied  equations  (1)  and  (2) 

above  and  became  the  new  endpoint.  By  dividing  the  plane  of 

the  screen,  the  X  -Y  plane,  into  nine  sectors  (Figure  14), 

s  s 

the  location  of  the  twc  verticies  of  an  edge  was  determined 
using  the  inequalities  (1)  and  (2). 

Since  a  vertex  can  be  used  as  an  endpcint  of  several 
edges,  the  clipping  procedure  placed  the  x,  y,  and  z  values 
of  the  two  endpoints  into  the  arrays  X  (2)  ,  Y(2),  and  Z  (2)  , 
respectively,  as  each  edge  was  examined.  Thus,  if  new 
endpoints  had  to  be  computed  for  this  edge,  the  values  of 
the  original  verticies  were  not  destroyed.  Since  Fortran  IV 
did  not  support  binary  operations,  an  integer  array, 
ICHK  (2, 4 ) ,  was  used  to  code  the  location  of  each  endpoint  as 
fellows: 


If 

X(i) 

<  -Z(i) 

t  hen 

ICHK  (i ,  1 ) 

=  1 

else 

ICHK  (i,  1) 

=  0 

If 

X(i) 

>  Z(i) 

then 

ICHK  (i,  1) 

=  1 

else 

ICHK  (i,  1) 

=  0 

If 

Y  (i) 

<  -Z(i) 

then 

ICHK  (i  ,3) 

=  1 

else 

ICHK  (i, 3) 

=  0 

If 

X  (i) 

>  Z(i) 

t  hen 

ICHK  (i,4) 

=  1 

else 

ICHK  (i,  4) 

=  0 

If  both  endpoints  were  displayable,  no  action  was  taken 
and  the  next  edge  was  examined.  If  both  vertices  were  to 
the  right  of  the  viewing  pyramid  (or  both  to  the  left,  or 
both  above,  cr  both  below) ,  the  entire  edge  was  deleted  from 
the  display  (i.e.  if  ICHK(1,j)  *  ICHK  (2,  j)  =  1  then  discard 
the  edge) .  Until  both  endpoints  were  displayable  or  the 
edge  could  be  rejected,  new  points  had  to  be  computed  on  the 
edge.  This  computation  has  often  been  termed  "pushing”  the 
endpoint  towards  the  display  area.  The  pushing  cf  the 
endpoint  was  accomplished  by  utilizing  the  3-D,  parametric 
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representation  of  a  line  to  select  that  point  where: 


|X  |  *  |Z  |  if  inequality  (1)  was  not  satisfied; 
c  c 

OR 

|Y  i  -  |Z  |  if  encquality  (2)  was  not  satisfied, 
c  c 

If  inequality  (1)  was  violated,  the  following  sets  of 
equations  arc  used  to  coepute  the  new  endpoint: 

If  X(1)  <  -2(1)  :  then: 

t-  C  2  ( 1)  ♦X(1)  ]/{[  X  (1) -X(2)  ]-[Z(2)-Z(1)  ]) 

Z  (1)  -  t  ♦  [  Z(2)  -Z(1)  1  ♦  2(1) 

X(1)  »  -Z(1) 

Ml)  -  t  *  (!(2)-T(1)  ]  ♦  Y  ( 1 ) 

If  X(1)  >  Z  (1)  then: 

t  -  [Z(1)-X(1)  ]/([X(2)-X(1)  ]-[  Z  (2)  -2  ( 1)  ]) 

Z(1)  *  t  ♦  [  2  (2)  -2(1)  ]  ♦  2(1) 

X(1)  -  Z(1) 

Ml)  »  t  *  [  X  (2)  -Y  (1)  ]  ♦  Y(1) 

When  inequality  (2)  was  violated,  the  equations  used  to 
coepute  the  new  point  were  those  above  with  every  X  replaced 
with  a  Y  and  vice  versus. 


G.  HIDDEN  LINE  REMOVAL 


The  eethod  utilized  to  reeove  hidden  lines  froa  3-D 
objects  was  developed  by  John  Harnock  at  the  University  of 
Otah.  The  prograa  was  interpreted  froa  a  SAIL  ptegraa 
listed  in  Ref.[1].  This  procedure  required  that  the  object 
coordinates  be  transforaed  to  eye  and  then  to  screen 
coordinates  without  any  intervening  clippicg  of  the  iaage. 
The  algorita  was  broken  into  three  aain  sections,  the 


Looker,  the  Ihinker,  and  the  Controller.  Ihe  storage  cf  the 
vertex  indices  in  the  array  EDGE (2, j)  was  re-structured  so 
that  the  index  of  a  polygon's  first  edge  could  be  used  to 
link  to  the  index  of  its  second,  and  its  second  could  link 
to  the  third  edge,  etc.  Thus,  an  initializing  subroutine 
linked  each  polygon's  edges  in  the  array  EDLIMK(i). 

The  concept  of  linked  lists  uses  the  index  of  edge  i  to 
produce  the  index  of  the  next  edge  for  the  sane  polygon. 
Since  an  edge  could  be  conon  to  twc  polygon's,  the  first 
polygon  tc  link  the  edge  i  found  the  storage  location 
EDLINK(i)  unused.  This  first  polygon  stored  the  index  of 
its  next  edge,  j,  in  ECLINK(i).  Because  twc  polygons  can 
have  at  most  one  edge  in  common,  the  second  polygon  tc  link 
edge  i,  could  not  use  this  same  storage  location,  EDLIKK(i) . 
Therefore,  the  number  of  edges,  called  edges,  was  increased 
by  one  and  the  vertices  for  edge  i  were  also  stored  as 
shown: 

EDGE  <1  ,  ECGEN)  *  ECGE(1,i) 

EDGE <2,EDGEH)  -  EEGE (2,1) 

Additionally,  the  storage  location  ECL1NK  (EDGEN)  was 
used  to  stcre  the  index  of  the  next  edge  for  this  second 
polygon.  This  ordering  usually  doubled  the  storage 
reguirements  for  edge  definition.  The  vertex  indicies  were 
further  ordered  in  the  array  EDGE  (i, j) ,  so  that: 

EDGE  ( 2  ,  j)  *  EDGE  ( 1,  J*  1) 

The  data  was  structured,  using  linked  lists  (integer 
arays)  and  pointers  to  the  first  element  cf  the  list,  as 
follows: 

1.  POLLNK-a  list  of  polygon  indices  ordered  ty  the 
polygon  closest  tc  the  viewer  with  pointer  POLPTR; 

2.  POLEDG-  contained  the  indices  of  the  first  edge  of 


each  polygon.  The  pointer  used  was  the  polygons  index; 

3.  EDLINK-contained  the  linked  list  of  edges.  The 
pointer  to  a  polygons  second  edge  was  the  index  of  its 
first  (found  in  PCLEDG)  ; 

4.  POLLST-a  list  of  polygons  which  were  deternined  by 
the  Locker  to  he  either  surrounders  or  intersectors 
(which  are  explained  below) .  The  pointers  to  the  list 
were  SURRND  and  INTER . 


An  example  of  the  usage  of  these  linked  lists  was 
provided  below: 


INTER  was  the  last  polygon  (index)  added  to  the 
list  of  intersectors  and  thus,  was  at  the  head  cf  the 
list. 


POLLSI (INTER)  -  F ,  where  P  was  the  index  cf  the 
second  polgon  on  the  intersectors  list. 

POIEDG(P)  *  E^,  where  E^  was  the  index  cf  the 


first  edge  for  polygon  P. 


EDIINK(E^)  3  which  was  the  index  of  the  second 
edge  for  polygon  P. 

EDGE  (1  ,E  )  *  V  and  EDGE (2, E  )  =  V  ,  where  ?  and 

1  1  12  1 

were  the  indices  of  the  two  vertices  discribing  edge 

B  . 

1 


The  concept  of  linked  lists  was  utilized  extensivelj  for 
both  the  hidden  line  and  hidden  surface  rexoval  routines. 
In  this  proceedure,  a  display  window,  which  was  initially 
the  entire  screen,  was  examined  against  each  polygon.  Each 
window  could  be  classified  as: 

1.  nothing  was  contained  in  this  window; 

2.  the  information  contained  in  this  window  was  simple 
and  could  be  displayed; 
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3.  cr  the  inforaation  contained  in  the  window  was  too 
coaplex . 

Situations  1.  and  2.  resulted  in  a  successful  processing  of 
the  window.  The  next  window  on  the  stack  could  then  be 
exaained.  The  last  classification  was  a  failure  and  caused 
the  window  to  be  divided  into  four  windows  of  equal  size. 
Ihese  new  windows  were  then  pushed  onto  the  stack. 

The  first  iaportant  eleaent  needed  tc  process  a  display 
window  was  the  cooputation  of  the  depth  of  the  plane 
deterained  by  a  polygon  at  the  four  corners  of  the  window. 
The  planar  eguation  can  be  stated  as: 

Ax  ♦  By  ♦  Cz  ♦  D  =  0 

The  coefficients.  A,  B ,  c,  and  D,  can  be  found  froa  the  x, 

y,  and  z  values  of  any  three  points  contained  in  the  plane 

which  are  not  colinear.  Since  the  corners  of  a  window  are 

specified  as  X  and  X  values  in  screen  coordinates,  the 

s  s 

depth  of  the  polygon  was  conputed  by  siaple  substitution 
into  the  place  equation. 

The  last  iaportant  concept  needed  to  process  a  window 
was  the  classification  of  each  polygon  as: 

1.  an  intersector  of  the  window; 

2.  a  surrounder  of  the  window; 

3.  or  disjoint  froa  the  window. 

Ihese  concepts  are  clearly  portrayed  in  Figure  15.  The 
classification  of  all  polygons  was  perforaed  by  the  Locker. 

To  deteraine  whether  a  polygon  was  an  intersectcr,  it 
was  sufficient  to  find  any  one  of  the  polygon's  edges  which 
intersected  the  window.  This  deter ainaticn  was  aade  by  a 
clipping  subroutine,  which  was  very  siailar  tc  that  in  P. 
If  none  of  the  edges  intersected  the  window,  the  polygon  was 
deterained  tc  be  a  surrounder  or  disjoint  froa  the  window  by 
coaputing  the  angle  "about  the  window  through  which  each 
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edge  passed." 
polygon  were 


The  sua  of  these  angles,  as  all  edges  of  a 
processed,  wculd  egual  ±360  degrees,  if  the 


polygon  was  a  surrounder  of  this  window,  as  shown  in  Figure 

16.  The  actual  computation  of  each  edge's  angle  was 

iapleaented  ty  dividing  the  X  -Y  plane  into  nine  sectors, 

s  s 

as  shown  in  Figure  17.  The  window  was  located  in  the  center 


region,  and  the  outer  eight  regions  were  nunbered  as 
shown.  The  endpoints  were  located,  just  as  in  the  clipping 
routine  in  F.  ,  and  assigned  the  proper  sectcr  number. 


The  edge's  "angle"  was  the  number  of  sectors  which  an 
edge  entered,  not  counting  the  sector  of  the  first  endpoint. 
A  polygon  wh.r  *h  surrounded  the  window  had  an  "angle"  of  ±  8, 
and  a  disjoint  polygon  had  a  zero  angle.  Extremely  complex 
polygons  could  have  an  angle  egual  tc  ±  16,  or  higher 
multiples  of  eight,  by  surrounding  the  window  two  or  more 
times.  However,  usage  of  such  complex  polygons  was 
unnecessary  to  construct  any  image.  Because  the  incremental 
angle  (  )  was  defined  as  the  difference  between  the 
sector  values  of  the  two  endpoints,  one  problem  of  computing 
an  edge's  angle  occurred  when  the  magnitude  was  greater  than 
four.  Since  no  linear  edge  could  enter  mere  than  four 
sectors  (starting  frem  the  sector  of  the  first  endpeint) , 
the  edge's  angle  was  adjusted  when  the  magnitude  was  greater 
than  four  by  : 

If  >  4  then  A<2  *  Att  -  8 

if  &cx  < then  A oc  *  A oi  ♦  8 


K 
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Oi+  P  +  7+5  +  6  =  360° 


EDGES'S  ANGULAR  COMPUTATION 


The  last  angle  computational  problem  cccured  when  the 
magnitude  was  egual  to  four,  as  shown  in  Figure  18.  The 
correct  sign  in  this  situation  was  not  rendered  by  taking 
the  difference  of  the  two  sector  values.  Counter-clockwise 
rotation  or  movement  about  a  polygon's  edges  should  have 
yeilded  a  positive  result.  The  problem  was  resolved  by 
selecting  any  point  between  the  two  endpoints  which  was  not 
in  either  of  the  vertices'  sectors,  as  shown  in  Figure  19. 
Ey  dividing  the  edge  at  this  point,  the  correct  angle  could 
be  computed  by  summing  the  angles  of  these  "two  edges". 
This  angular  computation  for  an  edge  was  determined  in  the 
clipping  subroutine  used  by  this  proceedure. 

The  linked  lists  of  the  classified  polygons  were  then 
passed  to  the  Thinker.  The  surrounder  list  was  processed 
first  to  determine  which  polygon  was  closest  to  the  viewer 
by  computing  the  depth  of  each  of  these  polygons  at  the  four 
window  corners,  as  shown  in  Figure  20.  Provided  the  closest 
polygon,  called  the  hider,  was  not  penetrated  by  another 
polygon,  these  four  depths  were  used  tc  determine  if  an 
intersector  polygon  was  located  completely  in  front  of  the 
hider  within  the  confines  of  the  display  window.  If  an 
intersector  was  completely  hidden  from  the  viewer  by  the 
bider,  it  was  removed  frcm  the  list.  If  the  final 
intersector  list  contained  only  one  polygon,  then  that  part 
of  the  polygon's  edges  which  were  inside  the  window  were 
displayed.  If  the  list  contained  more  than  cne  intersector, 
or  if  any  intersectcr  polygon  penetrated  the  plane  cf  the 
hider,  the  Thinker  announced  failure  for  that  window.  if 
the  hider  was  penetrated  by  ancther  surrounder,  the  Thinker 
announced  failure  before  examining  the  intersector  list. 
The  penetration  cf  cne  pclygon  by  another  was  shewn  in 
figure  21.  Hhether  polygon  B  would  be  classified  as  an 
intersectcr  or  a  surrounder  penetrating  polygon  k  would 
depend  on  the  placement  of  the  window.  When  the  complexity 
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of  the  display  could  not  be  resolved  and  the  size  of  the 
window  had  been  reduced  to  the  display  device's  smallest 
resolution,  a  dot  was  displayed  at  the  window's  lower,  left 
corner.  In  this  manner,  the  penetration  of  cne  polygon  by 
another,  which  described  a  line,  was  displayed  as  an  implied 
edge. 


If  failure  was  announced,  and  the  size  cf  the  window  was 
larger  than  the  smallest  resolution,  the  display  window  was 
divided  into  four  equal  windows  and  pushed  onto  the  tcp  of 
the  stack.  Ihe  Controller  then  selected  the  next  window  on 
the  stack  and  passed  it  to  the  Looker.  This  entire  process 
was  summarized  by  the  flow  chart  in  Figure  22. 
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[GCNAL  PENETRATION 


H.  HIDDEN  SURFACE  REMOVAL 

The  algorithm  utilized  for  this  procedure  was  developed 
by  G.  S.  Watkins  at  the  University  of  Utah.  The  program  was 
interpreted  from  a  SAIL  program  presented  in  Ref.  £1]. 
While  the  hidden  lire  removal  algorithm  concentrated  on 
linked  lists  of  polygons,  the  hidden  surface  algorithm 
processed  the  display  with  lists  of  edges.  Additionally, 
the  vertices  had  to  be  expressed  in  clipped,  screen 
coordinates.  Although  the  user  still  generated  the  data  for 
an  image  as  stated  in  A.,  this  procedure  displayed  the 
polygonal  surfaces  as  a  solid  plane  using  shading  or  colors. 
Ihus,  a  3-D  object  should  become  much  more  realistic  when 
displayed  with  shaded  surfaces  vice  wire  frames.  While  the 
algorithms  presented  previously  in  section  III.,  can  be 
utilized  on  any  display  device,  this  concept  was  developed 
specifically  for  raster  scan  CRT's. 

A  raster  scan  is  a  special  type  of  CRT,  which  is  very 
similar  to  the  television  in  most  hones.  The  vectored  CRT's 
and  the  direct  view  storage  tubes  generate  a  display  by 
pointing  an  electron  beam  to  a  desired  location  on  the 
display  screen  and  then  moving  it  to  any  other  screen 
location.  This  process  illuminates  the  phosphorous  screen 
to  produce  a  single  line  segment.  The  typical  television 
receives  an  analogue  broadcast  signal  which  generates  a 
single  ^horizontal  line  of  the  screen's  image  at  a  time.  At 
the  end  of  each  line  a  horizontal  sync  pulse  is  received  to 
move  the  electron  beam  down  one  line,  and  tc  the  left-hand 
edge.  When  the  last  hcrizontal  line  has  beer  displayed  a 
vertical  sync  pulse  moves  the  beam  to  the  top,  left-hand 
corner  of  the  screen.  Since  the  phosphcrous  screen  remains 
illuminated  a  very  short  time,  the  image  must  be  constantly 
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refreshed,  typically  at  a  rate  of  thirty  tines  per  second. 


A  raster  scan  display  device  receives  its  image  (and 
refresh)  information  from  random  access  memory  (RAN)  refresh 
planes  where  the  image  is  stored  as  a  sequence  of  individual 
tits.  Each  bit  of  a  memory  plane  determines  the 
illumination  of  a  single  element  on  one  horizontal  dislay 
line  (also  called  a  scan  line  or  a  raster) .  A  picture 
element,  called  a  pixel,  is  the  smallest  screen  resolution 
size.  The  standard  sixteen  level  grey  shading  requires  four 
bits,  one  bit  on  four  planes,  to  represent  the  shading  of 
one  pixel.  Similar  memory  requirements  are  needed  to 
display  an  image  with  sixteen  colors.  While  the  vectored 
CRT's  have  acheived  resolutions  on  a  display  screen  of  4096 
lines  with  4096  elements  per  line,  the  finest  resolution 
available  with  raster  scan  devices  is  1024  by  1024.  Thus,  a 
sixteen  color,  raster  scan  display  with  high  resolution 
required  four  million  bits  of  RAN.  Eecause  of  this 
extensive  memory  requirement,  the  developement  of  this  type 
of  display  device  followed  that  of  the  small,  lower  cost 
electronic  memory. 

As  shewn  in  Pigure  23,  the  intersection  of  the  plane  _.of 

a  scan  line  with  a  polygon  was  a  line  segment.  (Scan  line  k 

corresponds  to  the  Y  =  k  plane.)  This  line  segment's 

s 

endpoints  were  defined  by  its  Xleft,  Zleft,  Xright,  and 

Zright  values,  which  were  the  X  and  Z  coordinates  of  the 

s  s 

intesecticn  of  the  scan  line  with  two  of  the  polygon's 

edges.  The  two,  2-0  equations  below  were  used  to  find  the 
intersection  of  an  edge  with  each  scan  line. 


*  a  Y  ♦  b 
s 

(1) 

*  c  1  ♦  d 

(2) 

s  s 
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Figure  23  -  SCAN  LINE  INTERSECTION  OF  A  POLYGON 
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3.  Simple  intersc-ct/ oa/  of  two  SPA/'WERS 


Pigure  24  -  SEGHENT  CLASSIFICATION 
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The  coefficients,  a,  b,  c ,  and  d,  were  quickly  obtained 
using  the  equations  for  a  2-D  line  with  the  coordinates  of 
the  two  vertices  describing  each  edge. 

With  these  equations  the  1  and  Z  values  of  the 
intersection  of  an  edge  with  scan  line  k+1  was  the  values  at 
scan  line  k  plus  their  respective  slopes,  a  and  c.  Since 
each  edge,  and  thus  each  segment,  sustained  only  an 
incremental  change  between  scans  lines,  the  display  was  also 
assumed  to  remain  constant  between  scan  lines.  This  scan 
line  coherence  of  the  display  was  used  to  decrease  the  time 
reguired  to  process  an  image. 

To  process  each  scan  line,  it  was  necessary  to  divide 
the  line  intc  spans  which  could  be  more  easily  resclved. 
The  content  of  a  span  cculd  be  categorized  as  shewn  in 
figure  24  and  as  described  below: 

1.  "The  span  contained  only  one  segment. 

2.  Cne  segment  was  closer  to  the  viewer  than  all 
others  and  it  was  a  spanner.  A  spanner  was  a  segnent 
where  Xleft  <  Span  left  and  Xright  >  Span  right,  as 
shewn  in  Figure  24. 

3.  There  was  a  simple  intersection  cf  the  only  two 
segments  in  the  span,  and  both  were  spanners.  This 
span  was  divided  at  the  intersection  intc  two  spans  and 
processed  as  in  1. 

4.  The  display  was  too  complicated  in  this  span  so  it 
was  divided  at  the  left-tost  segnent  endpoint,  or  at 
the  spars  mid-point  if  there  was  no  endpoint.  The  new 
spans  were  then  processed."  ^ 

Since  the  lower,  left-hand  corner  of  the  raster  scan 
machine  at  the  Naval  Postgraduate  School,  the  RAHTEK,  was 
indexed  as  (0,0)  each  edge  was  ordered  so  that  the  index  of 
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the  vertex  with  the  largest  Y  value  vas  stored  in 

s 

BDGE(1,i).  The  integer  value  foraed  by  truncating  this 

vertice's  Y  value  deterained  the  first  scan  line  that  an 
s 

edge  would  enter  the  display.  A  linked  list  cf  the  incicies 

of  the  edges  which  entered  on  each  scan  line  was  stored  in 

the  array  EMllST(i).  Ihe  index  of  the  first  edge  to  enter 

cn  scan  line  k  was  stored  in  YENTEB(k). 

As  each  edge  entered  the  display,  the  X  and  Z  values  and 
the  scan  line  coherence  factors,  the  slopes  for  equations 
(1)  and  (2)  ,  were  coaputed.  Since  the  cbject  of  this 

algoritha  was  to  display  polygonal  surfaces,  the  indices  of 
the  current  segaents  of  a  polygon  were  linked  in  PGLSEG (i)  . 
The  segaents  were  ordered  by  increasing  X  values  of  their 
left  endpoint  and  the  first  segaent's  index  was  placed  in 
SEGLST(p)  fcr  polygon  p.  A  segaent's  index  pointed  to  a 
block  of  storage  which  defined  the  endpoints  X  and  Z  values 
in  the  arrays  XLEFT(i),  ZLEFT(i),  XKIGHT(i),  and  ZRIGHT(i) 
and  their  respective  slopes  DXLEFT(i),  DZLEFT(i),  DXRGHT  (i)  , 
and  DZRGHT  (i) .  Integer  arrays  IYLEPT(i)  and  IYRGHT(i)  were 

used  to  indicate  when  an  edge,  the  source  cf  cne  endpoint  of 

a  segaent,  was  exiting  the  display. 

To  properly  insert  an  entering  edge  into  a  polygon's 

segaent  lists  required  the  coaparison  of  the  edge's  X  value 

for  this  scan  line  to  the  Xleft  and  Xright  values  of  all  cf 

the  active  segaents.  If  two  edges  entered  cn  the  sane  scan 

line  at  the  saae  X  coordinate,  as  shown  in  Figure  25,  the 

s 

edge  with  the  largest  slcpe  was  entered  first.  Thus,  to 

enter  the  twc  edges  on  scan  line  k*1,  between  the  two 

existing  edges,  a  new  block  of  storage  was  added  for  each 

entering  edge.  As  each  edge  exited  the  scene,  it  was 
renoved  froa  its  half  of  the  storage  block,  as  shown  on  scan 


line  k>2  in  figure  25.  liter  ail  additions  and  deletions 
had  been  perforaed,  the  list  of  segaents  was  sorted  to 
conslidate  storage.  This  entire  process  has  been  portrayed 
in  Figure  26.  As  stated  before,  an  edge  usually  separated 
two  polygons.  To  eliainate  redundant  operations,  the  array 
E(2,i)  was  used  to  store  the  indices  of  the  polygons  ccaaon 
to  edge  i.  iihen  an  edge  entered  the  display  and  separated 
two  polygons,  its  values  of  intersection  were  added  to  the 
blocks  of  storage  for  both  segaent  lists. 

This  algcritha  was  divided  into  the  saae  three  parts, 
the  Thinker,  the  Looker,  and  the  Controller,  as  the  hidden 
line  routine.  The  looker  coapared  all  segaents  which 
intersected  a  span  and  developed  sufficient  inforaation  for 
the  Thinker  to  process  it.  Provided  the  contents  of  a  span 
satisfied  the  categories  1  through  3  a  b  o  v »,  the  Thinker  was 
able  to  generate  the  data  required  for  displaying  this  span. 
If  the  infcraaticn  contained  in  the  span  was  too 
coaplicated,  it  was  divided  by  the  Controller.  The 
sucessful  scan  line  division  points  noraally  occurred  at  the 
left-aost  endpoint  of  a  segaent.  Since  this  division 
point's  location  on  the  next  scan  line  can  be  predicted,  it 
was  stored  and  used  to  decrease  the  tiae  required  to  process 
the  entire  ixage.  The  coaputation  of  the  X  and  Z  values  of 
a  segaents  ecdpoints  and  an  updated,  sorted  list  of  segaents 
was  also  perforaed  by  the  Controller.  This  active  list  of 
segaents  was  sorted  in  the  Xsort  lists,  IXSLFT(i)  and 
IXSBGT(i),  by  increasing  X  values.  These  two  lists  provided 
the  index  cf  the  segaent  to  the  left  and  to  the  right  of 
segaent  i  by: 

k  ■  IXSLFT(i)  :  was  the  index  of  the  segaent  to  the 

left. 

j  ■  IXSRGT(i) 
right. 


was  the  index  of  the  segaent  to  the 
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Figure  26  -  UPDATE  OF  SEGMENT  BLOCK  STORAGE 
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The  last  bookkeeping  task  performed  by  the  Ccnticller 
was  to  divide  the  list  of  segments  into  the  following 
categories: 

1.  "SEGOUT-  the  right  edge  of  the  segment  was 
contained  in  this  span.  (This  segment  did  not  appear 
in  any  span  to  the  right  of  this  one.) 

2.  SEGACT-the  right  edge  of  tne  segment  extended 
beyond  the  right  limit  of  this  span." 

If  this  span  was  displayed,  then  the  SEGCUI  list  did  not 
need  to  be  considered  in  subsequent  spans  and  could  be 
discarded  (until  the  next  scan  line) .  The  SSGACT  list  was 
automatically  added  to  the  next  spans  active  segment  lists. 
If  the  span  failed  to  be  processed,  the  two  lists  were 
combined  and  compared  to  the  new  span. 

Hhen  the  segment  lists  were  passed  to  the  Looker,  the  X 

and  Z  coordinates  of  the  left-most  and  the  right-most  parts 

of  a  segment  in  this  span  were  computed  (see  Figure  27  where 

the  following  terms  are  portrayed:  sxleft,  szleft,  sxright, 

and  szright) .  A  box  was  constructed  about  the  first  segment 

examined  in  the  X  -Z  plane  which  entirely  surrounded  that 

s  s 

part  of  the  segment  which  intersected  the  span.  As  each  new 

segment  was  compared  tc  the  box,  the  box  was  enlarged  to 
include  it.  If  a  segment  completely  hid  the  box  frcm  the 
viewpoint  or  if  it  was  a  spanner,  then  the  count  of  the 
segments  in  the  box  was  reset  to  one  and  the  box  was  made  to 
enclose  cnly  this  segment.  This  was  shown  in  Figure  28 
along  with  the  definitions  of  the  box  X  and  Z  limits, 
bxleft,  bzleft,  bxright,  and  bzright. 


OP'S? 


The  information  passed  to  the  Thinker  was  box  count  and 
box  type.  If  the  box  count  was  zero,  the  Thinker  did 
nothing  and  the  Controller  began  processing  the  next  span. 
A  box  count  cf  one  indicated  a  single  segment  existed  in  the 
span.  The  segment's  sxleft,  sxright  and  index  were  stored 
with  the  results  of  previous  spans  so  that  the  entire  scan 
line  could  be  displayed  at  one  time.  When  the  box  count  was 
greater  than  one  and  the  box  type  was  egual  tc  one,  the  span 
contained  a  simple  intersection  of  two  spanners.  Both 
segments'  sxleft  and  sxright  values  and  their  indices  were 
stored  with  those  of  previous  spans  for  this  scan  line.  If 
the  box  ccunt  exceeded  one  and  the  box  type  equaled  '■aro, 
the  Thinker  announced  failure.  The  Controller  then  divided 
the  span  and  began  to  process  the  left  half  cf  the  old  span. 

An  important  element  cf  all  hidden  surface  or  line 
elimination  algorithms  has  been  the  proper  display  cf  an 
implied  edge.  When  the  intersection  of  two  polygons  caused 
an  implied  edge,  this  proceedure  stored  the  value  OIV,  the 
division  point  caused  by  two  intersecting  spanners,  cn  its 
first  occurence  (see  Figure  29) .  The  occurrence  of  this 
division  on  a  second  scan  line  provided  sufficient 
informaticn  to  compute  its  X  and  Z  scan  line  coherence 
factors.  The  implied  edge  was  then  added  to  a  dummy  segment 
block  and  sorted  with  the  other  segments  in  the  Xsort  lists. 
However,  this  dummy  segment  block  was  net  passed  to  the 
looker,  but  was  used  to  divide  the  scan  lice  into  the  proper 
spans.  When  the  division  point  due  tc  an  implied  edge 
divided  the  same  segment,  the  implied  edge  was  discarded.  A 
generalized  flow  chart  was  provided  for  this  algorithm  in 
Figure  JO  to  summarize  this  entire  section. 
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Slope  for  EQuatioa/  (i): 

q=-  diva  -divXj^ 

Slope  for  equat/dv  &): 
C=  DlV2La  -  DIVZjl 


Figure  29  -  IMPLIED  EDGE  GENERATION 


I.  IMAGE  SHADING 


An  extremely  important  aspect  of  computer  image  realism 
mas  the  generation  of  an  appropriate  shading  algorithm.  The 
realistic  algorithms  required  complex  software  and  thus, 
more  computation  time.  Another  alternative  used  has  been  to 
iaplemenx  the  algorithm  with  sophisticated  and  expensive 
hardware.  Although  this  was  one  key  element  to  a  3-D 
graphics  language,  a  software  implementation  would  have 
required  half  again  as  much  reasearch  and  time.  Therefore, 
this  aspect  was  left  for  future  developement.  The  usage  of 
colors  or  shading  for  object  definition  was  input  via  the 
subroutine  INIIAL  along  with  the  ether  image  data  (a 
complete  description  was  included  in  Appendix  A)  . 


» 
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IV.  &ism£I  AM  sonuis  SONSIiEBAliONS 


The  realistic  implementation  of  a  standard  graphics 
language  throughout  a  large  organization  would  require  that 
the  majority  of  the  software  could  be  input  to  all  host 
computers  with  minimal  alterations  required  for  specific 
display  devices.  Therefore,  the  primary  intent  was  to 
reduce  display  device  dependence  to  the  fewest  number  of 
subroutines.  The  processing  of  a  3-D  display  in  real  time 
was  another  important  consideration.  In  the  following 
sections  the  algorithms  in  III.  were  divided  into  four 
groups  and  their  implenentit ion  on  the  display  devices  was 
presented. 


1.  IMAGE  DISPLAYED  -  ALL  LINES  SHOWN 


The  device  dependent  software  which  had  to  be  utilized 
to  display  an  image  and  the  different  screen  or  display  area 
of  each  machine  were  the  two  non-portable  aspects  of  this 
entire  graphics  package.  Since  the  intent  of  this  effort 
was  to  produce  a  language  which  appeared  to  be  device 
independent  to  the  user,  the  problem  of  various  display 
areas  was  resolved  in  the  image  data  input  subroutine, 
INITAL.  When  more  than  one  display  device  was  supported  by 
a  host  computer,  the  user  had  to  select  the  appropriate 
display  device  number.  INITAL  then  chose  the  correct  line 
and  element  resolution  and  the  location  of  the  display 
area's  center.  The  four  devices  used  in  this  project  were: 

1.  TEKTRONIX  4012-  a  direct  view  storage  tube; 


2.  ADAGE  AGT-10-  a  vectored  CRT; 

3.  VEBSATEO  a  hard  copy  device  which  also  had 
electrostatic  shading  capability; 

4.  RAH1EK-  a  raster  scan  CRT. 

The  fcraat  of  the  data  input  by  the  user  was  stated  in 
the  graphics  language  description  preceeding  INITAL.  The 
required  data  included  the  image  description  as  stated  in 
III.  A.  and  the  following  inforaation: 

\  _ 

1.  a  -  the  distance  frcn  the  screen  tc  the  viewei; 

2.  fc  -  the  vertical  ditension  of  the  screen; 

3.  the  x,  y,  and  z  coordinates  of  the  viewpoint; 

4.  the  select  display  device  number; 

5.  the  index  of  the  color  table  to  be  utilized  (when 
using  the  RANTEK) ; 

6.  and  the  index  of  the  color  or  shading  for  each 
polygon. 

A  complete  explanation  of  the  input  data  was  provided  in 
Appendix  A  with  the  program  listing  of  INITA1. 

To  display  the  image  as  input  without  removing  hidden 
lines,  the  user  then  had  to  call  the  subroutine  DISFLY. 
CISPLY  called  the  subroutines  listed  below. 

1.  HDIC1P-  performed  the  object  to  clipping  coordinate 
transformation  on  the  vertices  and  stored  the  results 
in  the  arrays  XS(i),  YS  (i)  ,  and  ZS  (i)  ; 

2.  CLIE-  clipped  the  image  against  the  viewable 
display  area; 

3.  SCRN-  converted  the  clipping  coordinates  to  screen 
coordinates. 

The  image  could  now  be  displayed  by  the  selected  device. 
First,  each  machine  had  to  be  initialized  by  a  single  device 
dependent  subroutine  call.  Mext,  the  line  segments  of  each 


edge,  also  called  vectors,  were  drawn  by  another  device 
dependent  subroutine.  Finally,  all  devices,  except  the 
BAHTEK,  required  a  subroutine  call  which  terminated  the 
iiage.  The  ADAGE  also  required  an  image  subroutine  which 
developed  a  display  list  of  vectors  which  was  used  to 
refresh  the  display  screen.  Thus,  the  device  dependent 
portions  for  direct  image  viewing  could  typically  be 
contained  it  three  subroutines  and  at  most  four  when  a 
display  list  was  reguired.  The  display  device  was 
initialized  by  the  subroutine  INITAL  and  vectors,  or  line 
segments,  were  drawn  by  DISPLY.  The  graphics  software 
package  was  always  terminated  by  a  call  tc  FINISH,  which 
when  reguired  called  the  device  dependent  subroutine  to 
terminate  the  display. 

The  only  calling  parameter  which  was  reguired  for  EISPLY 
was  a  two  element  integer  array,  IR(2),  which  was  used  tc: 

1.  display  a  single  polyhedron  by  setting 
IR(1)  *  IR{2)  *  the  index  of  the  polyhedron; 

2.  display  a  group  of  consecutively  input  polyhera, 
where: 

IR(1)  *  the  index  of  the  first; 

and  IR(2)*the  index  of  the  last  pelyheron; 

3.  or  display  the  entire  image  as  input  in  INITAL  by 
setting  IR(1)  *  31. 

Except  fer  the  TEKTRONIX,  the  display  cf  a  wire  frame 
image  by  video  graphic  machines  was  performed  in  "real 
tine".  Beal  time  was  defined  as  a  period  cf  time  so  short 
that  the  user  could  not  detect  a  time  lag  between  the 

programs  execution  and  the  complete  drawing  of  the  image. 

Khile  the  computation  of  the  image  require  an  insignificant 
amount  of  time  for  the  host  computer  of  the  TEKTRONI 1  (an 

IBfl'360) ,  the  vector  display  speed  of  this  device  was  very 

slow.  The  VERSATEC  was  also  a  relatively  slew  device,  but 


hard  copy  aachines  have  not  been  expected  tc  produce  "real 
tiae"  displays. 

The  construction  of  this  general  graphics  language  did 
cait  soae  specific  device  versatilities.  The  VE8SATBC  had 
the  capabilities  to  re-define  its  display  area,  resolution 
size,  and  line  thickness,  and  could  produce  shaded  iaages. 
These  capabilities  could  have  teen  added,  but  were  left  for 
subsequent  efforts  due  to  tiae  constraints. 

E.  INTEBACTIVE  SOFTWARE  AND  HARDWARE 

The  transf oraaticns  for  rotation,  scaling,  and 
translation  provided  the  aeans  for  coaplete  iaage  aoveaent 
in  three  diaensions.  These  procedures,  which  <hav'e  been 
iapleaented  with  hardware  at  soae  installations,  coupled 
with  interrupt  devices,  such  as  alphanumeric  keyboards, 
function  switches,  graphic  tablets,  joysticks,  light  pens, 
and  track  balls,  provided  a  Aiser  with  a  coaplete  interactive 
viewing  capability.  •  lhe>  subroutines  written  to  rotate, 
scale,  and  translate^  single  polyhedron  or  the  entire  iaage 
were  coapletely  device  independent. 

The  calling  paraaeter  IR(2),  which  was  used  by  each  of 
the  three  subroutines,  was  defined  and  utiili2ed  as  stated 
in  A.  above.  Thus,  new  viewing  aspects  could  be  generated 
for  a  single  polyhedron,  a  group  of  objects,  or  the  entire 
displayable  iaage.  The  usage  of  the  scaling  subroutine  also 
required  that  the  user  provide  the  scale  factors  for  the  x, 
y,  and  z  coordinates.  The  additional  calling  parameters 
required  for  iaage  translation  were  the  distances  in  the  x, 
I ,  and  z  directions  which  the  3-D  object  was  to  be  aoved. 
The  sign  required  for  these  distances  was  opposite  to  that 
of  the  standard  velocity  vector  describing  the  objects 


lotion  in  this  direction.  Rotation  calling  parameters 
included  the  nuiber  specifying  the  axis  and  the  angle  of 
rotation.  If  an  arbitrary  axis  was  selected,  the 
coordinates  of  two  distinct  points  had  to  be  passed  intc  the 
subroutine  also.  The  usage  of  these  routines  was  defined  in 
the  consent  section  proceeding  INITAL.  The  three  software 
transfor nations,  rotation,  translation,  and  scaling, 
required  a  ainute  amount  of  computation  time.  Any 
combination  of  a  few  of  these  three  called  between  INITAL 
and  DISPLY  cculd  be  performed  in  "real  time". 

Direct  view  storage  tube  display  devices  have  an 
extremely  limited  interactive  capability  due  to  the  method 
used  to  clear  the  screen.  This  device  had  a  writing  cathode 
which  traced  the  image  on  a  fine  wire  mesh  which  was  located 
just  behind  the  phosphorous  screen.  Initially,  the  entire 
wire  mesh  was  negatively  charged.  Vectors  drawn  on  the  mesh 
by  the  writing  cathode  caused  these  line  segments  to  become 
positively  charged.  These  positively  charged  areas 
accelerated  and  passed  the  electrons  emitted  from  a  second 
cathode,  which  was  issuing  a  "flood"  of  electrons  to  refresh 
the  image  on  the  phosphorous  screen.  To  clear  an  image,  a 
large  positive  pulse  was  applied  to  the  wire  mesh.  This 
caused  a  large  flash  to  spread  across  the  screen.  Since  the 
flash  disrupted  any  possible  display  for  several  seconds, 
the  usage  of  this  type  of  device  for  rapidly  charging, 
interactive  images  was  highly  unrealistic. 

Vectored  CRT's  have  acheived  an  extremely  high  degree  of 
resolution  and  support  most  interactive  interrupt  devices. 
Kith  this  type  of  display  machine,  the  image  on  the 
phosphorous  screen  was  refreshed  by  storing  the  entire  image 
in  a  vector  list.  A  highly  ccmplex,  static  image,  one 
containing  several  thousand  vectors,  could  cause  the  display 
to  begin  flickering.  This  type  of  CRT  can  produce  only  a 
limited  number  of  vectors  before  the  phospherous  illuminated 
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for  the  first  vector  begins  to  din.  Thus,  shaded  inages, 
which  would  require  nany  vectors  for  even  a  simple  3-D 
object,  can  not  feasibly  be  produced  using  a  vectored  CFT. 
However,  excellant  3-D  graphs  and  extremely  ccaplex 
wire-framed  cbjects  have  been  visulized,  using  multiple 
colors,  with  these  devices. 

The  ADAGE  AGT-10  was  an  extremely  versatile  device  and 
had  an  alphanumeric  keyboard,  function  switches,  function 
knobs,  a  joystick,  and  a  light  pen  as  interactive 
capabilities.  Since  this  machine  was  operated  in  a 
stand-alone  node,  these  interactive  interrupt  devices  were 
easily  utilized  through  the  users  application  pregram, 
except  the  light  pen.  The  light  pen  could  only  be  accessed 
and  utilized  in  the  image  subroutine.  This  extremely, 
device  dependent  capability  was  not  included  in  the  graphics 
software,  since  its  usage  would  have  required  a  through 
knowledge  of  this  machines  software  for  even  a  simple 
application. 

The  BAHTEK's  interactive  devices  consisted  of  an 
alphanuneric  keyboard  and  a  set  of  function  switches  which 
could  be  used  to  position  a  cursor.  The  cursor's  screen 
coordinates  were  obtainable  through  device  related  software. 
The  BAHTEK's  host  computer  was  a  PDP-11,  which  prinarily 
supported  the  software  "C".  Since  the  graphics  software  for 
the  BAHTEK  was  written  in  C  and  there  was  no  software 
interface  written  for  Fortran  IV,  only  those  subroutines 
reguired  to  perform  hidden  surface  elimination  were 
translated  to  Fortran.  Therefore,  the  interactive 
capability  of  this  device  was  linited  to  input  via  a  host 
computer's  alphanumeric  terminal.  The  resolution  of  this 
video  graphics  device  was  240  lines  with  640  elements  per 
line.  Its  lack  of  vertical  discrininaticn  provided  poor 
image  continuity  in  this  dimension.  Since  this  was  the  only 
raster  scan  device  available  at  this  school,  its  utilization 
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vas  necessary  to  iapleaent  the  hidden  surface  algorithm. 

C.  HIDDEN  LINE  REMOVAL 

The  hidden  line  removal  algorithm  described  in  Section 

III.  was  invoked  by  calling  the  subroutine  REMOVE  after 

INITAL  and  any  desired  interactive  subrcutines.  REMOVE 

called  the  subroutines  RDYCLE,  SCRN,  WARNCK ,  and  DISFL2. 

Ihe  calling  parameter  required  by  REMOVE  was  the  integer 

array  IR(2),  which  was  described  in  A.  Since  this  algcritha 

clipped  each  edge  against  display  windows  to  process  an 

iaage,  the  vertices  of  the  pclyhderon  to  be  displayed  were 

passed  to  HAENCK  expressed  in  un-clipped  screen  coordinates. 

HARNCK  contained  the  Looker,  the  Thinker,  and  the  Controller 

described  in  III.  As  the  display  was  processed,  the  1  and 

s 

I  coordinates  of  the  two  endpoints  for  each  vector  were 
s 

stored  in  two  arrays.  This  storage  reduced  the  nuaker  of 

device  dependent  subroutines  added  to  the  graphics  package 
by  this  algcritha  to  cne,  DISPL2.  DISPL2  generated  vectors 
for  the  display  exactly  as  perforaed  by  DISPLY.  The  iaage 
subroutine  used  by  DISPLY  to  created  the  vectcr  list  for  the 
ADAGE  was  also  used  by  this  subroutine. 

The  algcritha  as  presented  in  Secticn  III.  displayed 
each  edge  of  a  simple  polyhedron,  like  a  cube,  by  failure. 
Display  by  failure  aeans  that  the  Thinker  was  unable  to 
resolve  any  display  window  and  a  dot  was  displayed  when  the 
window's  size  was  reduced  to  the  smallest  screen  resolution. 
An  edge  was  displayed  as  a  line  cf  dots  and  was  extreaely 
grainy.  This  consistent  failure  had  occurred  because  each 
edge  was  coaaon  to  two  polygons,  when  the  display  window 
was  reduced  so  that  it  contained  only  cne  edge,  the 
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intersectcr  list  still  contained  the  indices  of  two 
polygons.  lfae  Thinker  announced  failure  and  the  Controller 
divided  the  window.  The  computation  time  required  to 
process  and  display  a  cute  (which  has  a  maximum  of  three 
viewable  surfaces  and  nine  viewable  edges)  exceeded  twelve 
minutes  of  CPU  time  on  the  IBM-360.  Additionally,  almost 
9,000  storage  locations  were  required  to  store  the  endpoints 
cf  these  single  dot  vectors. 

To  reduce  the  occurrence  of  display  by  failure,  the 
intersector  list  was  not  rejected  if  ctly  two  polygons 
remained  after  comparison  with  the  hider.  When  the  list 
contained  two  indices,  the  number  of  edges  which  intersected 
the  current  display  window  was  determined  for  bcth 
polygon's.  Provided  there  was  only  one  edge  for  both,  the 
vertex  indices  of  one  polygon's  edge  were  compared  to  those 
of  the  seconds  to  ensure  it  was  the  same  edge.  When  this 
procedure  found  a  common  edge,  the  endpoints  cf  the  vector 
intersecting  the  window  were  stored.  This  addition  to  the 
Thinker  reduced  the  CPU  time  to  approximately  20  seconds  and 
the  storage  requirements  to  about  300  locations. 

Even  though  the  display  time  had  been  reduced  by  a 
factor  of  thirty,  this  hidden  line  removal  procedure  was  not 
even  remotely  acceptable  for  a  real  time  display.  While  a 
more  complex  Thinker  could  possibly  reduce  the  computation 
time,  hardware  implementation  remains  the  only  feasible 
method  for  a  real  time  display  using  this  algcritm. 
Additionally,  the  realism  of  wire-frame  images,  even  with 
hidden  lines  removed,  was  marginal  at  best.  As  stated 
previously,  shaded  surfaces,  or  solid  images,  can  net  be 
displayed  with  this  type  of  CR3.  Therefore,  realitic  3-D, 
"real  time"  computer  graphics  must  be  performed  using  a 
raster  scan  CRT  with  a  hidden  surface  removal  algorithm. 
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E.  HIDDEN  SURFACE  REMOVAL 


The  bidden  surface  algorithm  was  implemented  by  calling 
the  subroutine  SUBFAC  after  INITAL  and  any  of  the  desired 
interactive  procedures.  As  with  all  ether  procedures  in 
this  package,  the  hidden  surfaces  may  te  removed  and  the 
display  created  for  one  or  a  set  of  polyhedra  or  the  entire 
image  input  to  INITAL  as  determined  by  the  two  element 
integer  array  IR  (2) .  The  object  coordinate  data  was 
transformed  to  clipped,  screen  coordinates  by  calling  the 
subroutines  BDYCLP ,  CLIP,  SCRN,  and  SHOWIN.  The  remaining 
portion  of  this  subroutine,  SURFAC,  was  the  Controller  as 
described  in  Section  III.  The  Looker  and  the  Thinker  were 
contained  in  the  obviously  named  subroutines  LOOKER  and 
THINKER. 

The  hidden  surface  removal  algorithm  added  two  device 
dependant  subroutines  to  the  graphics  software  package, 
which  were: 

1.  SHOSIN  -  constructed  the  desired  color  table  and 
corrected  the  vertical  coordinates; 

2.  SHO  8  -  displayed  each  scan  as  its  image  was 
resolved. 

lhe  hidden  line  subroutines  stored  all  of  the  image  vectors 
until  the  entire  display  was  resolved.  However,  even  a 
single  polyhedron  would  generate  such  a  large  list  of 
vectors  (or  segments)  to  display  solid  surfaces  that  the 
storage  reguirements  of  a  moderately  complex  scene  would 
exceed  realistic  limits. 

The  RAHTEK,  and  most  raster  scan  CRT's,  could  produce 
sixteen  intensity  levels  for  each  of  the  three  primary 


colors.  Thus,  with  all  possible  combinations  of  the  shads 
of  red,  green,  and  blue,  this  device  was  able  to  displaj  any 
16  of  the  4096  colors  at  one  time.  Since  a  shading 
algorithm  was  not  implemnted,  SHCWIN  was  used  to  construct  a 
color  table,  containing  sixteen  colors,  which  was  needed  for 
the  applications  program  presented  in  Section  V. 
Additionally,  the  RAHTEK’s  vertical  scan  lines  (240  lines 
total)  were  twice  as  wide  as  each  horizontal  element  of 
resolution.  To  prevent  this  rectangular  picture  element 
from  causing  image  elongation,  th«~  vertical  dimensions,  V 

sy 

and  V  ,  were  doubled.  This  procedure  caused  the 
cy 

horizontal,  X  ,  coordinates  to  be  clipped  with  Y  values 
s  s 

which  were  twice  their  actual  size.  Thus,  the  large 

disparity  between  vertical  and  horizontal  resolution 

dimensions  was  not  allowed  to  cause  image  elongation. 

SBOHIN  was  also  used  to  divide  all  Y  coordinates  by  two 

s 

before  the  controller  began  processing  scan  lines.  Had 

these  cocrdinate  values  net  been  divided,  each  scan  line 
displayed  would  have  been  resolved  and  written  intc  RAH 
twice. 

The  hardware  used  to  input  the  image  data  onto  the 
memory  planes  by  the  RAMTEK  was  called  a  "vector  generator". 
Although  the  "vector  generators"  used  by  current  raster  scan 
CRT's  disply  vectors  at  speeds  only  limited  by  the  memory 
plane  write  times,  the  RAHTEK's  generation  cf  line  segments 
was  noticeably  slow.  Except  for  this  slew  vector  display 
capability,  this  software  algorithm  developed  shaded 
surfaces  in  "real  time".  Provided  'the  user  defined  the 
shading  or  colors  of  each  polygon,  this  type  of  display 
algorithm  was  shown  to  be  a  valuable  tcol  for  rapidly 
changing,  realistic  presentations. 


94 


AD-A081  037  NAVAL  POSTGRADUATE  SCHOOL  MONTEREY  CA 

A  PORTABLE  THREE-DIMENSIONAL  COMPUTER  GRAPHICS 
SEP  78  H  J  ROOD 

UNCLASSIFIED 


F/6  9/2 

SOFTWARE  package— ETC  (U) 
NL 


V.  I  THREE- EIHBSNIONAL  GRAPHICS  APPLICATION 


In  order  to  demonstrate  the  capabilities  of  the  3-D 
Graphics  Package  an  application  program  was  written,  which 
was  motivated  by  the  display  of  the  torpedo  test  area  at 
Keyport.  Bach  test  area,  which  was  irregularly  shaped, 
coaid  be  described  by  one  or  more  convex  polyhedra.  A 
polyhedron's  upper  and  lower  surfaces  represented  the  Puget 
Sound's  air/water  bcundry  and  its  mud  bottom,  respectively. 
Rotation,  scaling,  and  translation  of  these  polyhedra 
provided  any  desired  viewing  aspect.  Since  the  display 
device  at  Keyport,  the  GENISCO  GCT-3000,  was  a  high 
resolution  (1024  by  1024)  display  device,  the  hidden  surface 
algorith  was  selected  to  present  a  realistic  3-D  display. 
However,  the  Range  Safety  Officer  needed  tc  see  insice  the 
polyhedral  approximation  of  the  torpedo  test  area  not  the 
closest  polygonal  surfaces.  In  view  of  this  common  type  of 
display  requirement,  the  algorithm  was  altered  so  that  the 
hidden  surfaces  were  displayed  and  the  closest  surfaces  were 
deleted. 

A  real  time  display  of  torpedoes  and  other  test  vehicles 
in  the  range  was  required  to  prevent  them  from  running 
aground  or  leaving  the  test  area.  Hence,  an  algorithm  was 
developed  which  detected  the  polygonal  surface  penetration 
by  a  vehicle.  Obviously,  detection  of  an  accident  after 
occurrence  wculd  be  absurd.  Thus,  an  actual  implmentation 
of  this  type  of  display  would  require  the  construction  of  a 
safety  factor  by  displaying  surfaces  which  were  withic  the 
actual  test  area  boundries.  This  construction  would  be 
performed  by  the  definition  of  the  topedo  test  area  when 
input  to  INITAL  and  actually  did  not  alter  the  display 
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V 


A  ASEUiAIIfi* 


la  order  to  deacnstrate  the  capabilities  of  the  J-P 
Graphics  Package  an  application  program  was  written,  which 
was  activated  by  the  display  of  the  torpedo  test  area  at 
Keyport.  Bach  test  area,  which  was  irregularly  shaped, 
could  be  described  by  one  or  acre  convex  polyhedra.  A 
polyhedron's  upper  and  lower  surfaces  represented  the  Puget 
Sound's  air/water  bcundry  and  its  aud  bottca,  respectively. 
Rotation,  scaling,  and  translation  of  these  polyhedra 
provided  any  desired  viewing  aspect.  Since  the  display 
device  at  Keyport,  the  GENISCO  GCT-JOOO,  was  a  high 
resolution  (1024  by  1024)  display  device,  the  hidden  surface 
algorith  was  selected  to  present  a  realistic  J-n  display. 
However,  the  Range  Safety  Officer  needed  tc  see  inside  the 
polyhedral  approxiaaticn  of  the  torpedo  test  area  not  the 
closest  polygonal  surfaces.  In  view  of  this  coamon  type  of 
display  reguireaent,  the  algorithm  was  altered  so  that  the 
bidden  surfaces  were  displayed  and  the  closest  surfaces  were 
deleted. 

A  real  tiae  display  of  torpedoes  and  othct  test  vehicles 
in  the  range  was  required  tc  prevent  the*  from  running 
aground  or  leaving  the  test  area.  Hence,  an  algorithm  was 
developed  which  detected  the  polygonal  surface  penetration 
by  a  vehicle.  Obviously,  detection  of  an  accident  after 
occurrence  would  be  absurd.  Thus,  an  actual  iaplaentation 
of  this  type  of  display  would  require  the  construction  of  a 
safety  factor  by  displaying  surfaces  which  were  withir  the 
actual  test  area  boundries.  This  construction  would  be 
perforaed  by  the  definition  of  the  topedo  test  area  when 
input  to  XNXTAL  and  actually  did  not  alter  the  disp'lay 
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requirements 


t 


The  location  of  a  vehicle  in  the  test  area  was  provided 
by  acoustic  line  of  bearings  which  were  used  to  determine 
its  position.  For  this  application,  the  fii  provided  ty  the 
bearings  was  assuaed  to  generate  the  x,  y,  and  z  object 
coordinates  required  for  this  graphics  package.  Since  the 
acoustic  inferaation  provided  about  the  vehicle  was  not  3-D, 
the  torpedo's  location  was  defined  as  a  single  point. 
However,  the  actual  display  of  the  vehicle  was  3-D  which 
provided  the  correct  relative  direction  of  notion 
information  (called  target  angle)  to  the  observer.  Although 
all  surfaces  of  the  torpedo  were  the  saae  color,  its  hidden 
surfaces  were  removed  for  display  since  this  algorithm 
required  such  minute  computational  processing  tine. 
Finally,  the  torpedo's  track,  its  last  five  positions,  was 
displayed  as  a  line  in  the  vehicles  color. 

«.  PLANAB  SURFACE  PENETRATION 

The  theory  used  to  determine  if  a  paint  had  penetrated 
one  of  the  test  area's  boundries  was  originally  conceived  by 
l.  G.  Roberts  to  remove  hidden  lines  from  3-E  figures.  It 
used  the  coefficients  of  the  plane  equation  presented  in 
Section  ill.  G.  "These  coefficients,  in  the  vector  form  (a 
b  c  d],  were  also  the  expression  for  a  hcicgeneous  vector 
normal  to  the  plane  (homogeneous  refered  to  the 
representation  of  a  3-D  point  as  a  1  by  4  vector,  where  d 
was  an  arbitrary  scale  factor).  If  the  dot  product  of  this 
normal  and  a  vector  in  the  viewing  direction  was  positive, 
then  the  polygon  was  a  back  face  of  the  polyhedron  and  thus, 
non-viewable .  Face  normals  were  also  used  to  compute 
shading  paraieters.  " 
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Additionally,  if  two  points  were  on  the  sane  side  c£  the 
plane  of  a  polygon,  the  dot  product  of  either  point  with  the 
nornal  vector  would  have  the  sane  sign.  Since  ccncave 
polyhedra  would  allow  two  interior  points  to  be  on  different 
sides  of  a  plane  deternined  by  a  polygon,  only  convex 
polyhedra  were  utilized.  Two  adjacent  convex  polyhedra 
could  have  at  nost  one  connon  polygonal  face.  Since 
penetration  of  this  connon  surface  by  a  vehicle  would  have 
falsely  indicated  danger,  these  faces  were  elininated.  If  a 
vehicle  penetrated  a  test  area  boundry,  its  color  was 
changed  tc  red. 

E.  HIDDEN  SUBFACES  DISPLAYED 


To  present  the  interior  of  a  3-D  object,  it  was 
necessary  tc  elininate  the  nornally  viewable  surfaces.  The 
hidden  surface  algorithn,  which  criginally  elininated  back 
planes,  was  easily  nodified  to  display  the  hidden  surfaces. 
Cnly  the  Looker  subroutine  had  to  be  altered.  The  Looker  in 
Section  III.  conpared  all  segnents  which  intersected  a  span 
in  order  to  locate  one  segnent  which  was  closest  tc  the 
viewer  and  hid  all  other  segnents  in  the  span.  This 
subroutine  was  altered  to  search  for  the  farthest  segnent 
fron  the  viewer  which  hid  all  other  segnents  fron  a 
viewpoint  located  on  the  other  side  of  the  crigin  (on  the 
sane  viewing  axis)  ,  as  shown  in  Figure  31. 

Since  the  najority  of  this  inage  was  static,  the  tcrpedo 
test  area  cnly  reguired  processing  to  display  the  hidden 
surfaces  initially  and  when  the  vi'eving  aspect  was  changed. 
However,  any  noving  inage  presented  a  special  problen  on 
this  type  of  display  device.  To  project  the  concept  of 
notion  on  a  raster  scan  CRT,  it  was  not  sufficient  to  sinply 
translate  or  rotate  and  then  display  the  new  inage,  because 


the  original  figure  was  written  in  tae  nenory  planes  and 
would  be  displayed  until  replaced.  With  the  GENISCO,  it  is 
possible  to  sasple  the  aesocy  planes  defining  the  color  of 
any  one  pixel,  but  the  RAMTEK,  which  was  designed  and  built 
ten  years  before  the  GCT-3000,  did  not  have  that  capability. 
Io  delete  an  isage  of  a  torpedo  with  the  GENISCO,  one  aethod 
would  be  to  saaple  the  two  colors  displayed  cn  the  screen  at 
the  two  endpoints  of  each  line  segaent  which  defined  this 
figure.  Provided  colors  at  these  two  points  were  the  same 
and  the  vehicles  inage  was  snail,  this  color  could  be  stored 
for  this  segaent.  It  could  then  be  used  to  restore  the 
original  background  when  the  torpedo's  position  changed. 
However,  the  tiae  required  for  these  background  color 
coaputaticns  could  be  aore  than  that  to  re-process  and 
display  the  entire  iaage  again.  Without  this  option,  using 
the  RAHTEK,  the  static  iaage  was  input  to  the  hidden  surface 
display  algcritha  and  re-drawn  each  tine  the  torpedo's 
location  changed.  The  torpedo's  3-D  fora  and  its  track 
where  then  displayed  at  their  new  screen  locations. 

To. provide  the  naxinua  display  flexibility,  it  was 
necessary  to  provide  a  aeans  to  both  reacve  and  display 
hidden  surfaces.  Thus,  an  additional  calling  paraneter, 
ILOOK,  was  added  to  the  subroutine  SURFAC  (the  Controller). 
This  paraaeter  was  used  to  enable  the  Controller  to  select 
the  correct  Locker  subroutine,  where: 

1.  ILOCK  *  1,  called  LOOKER  which  removed  hidden 
surfaces; 

2.  and  ILOOK  *2,  called  LOOKR1  which  displayed  the 
back  pclygonal  planes. 
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Figure  J1 


VIEWPOINT  REQUIRED  TO  DISPLAY  THE  BACK  SURFACES 
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TORPEDO  IEST  AREA  SIMULATION 


The  torpedo  test  area  utilized  for  this  application 
program  uas  constructed  with  three,  box  type  polyhedra.  The 
two  end  boxes  had  five  polygonal  surfaces  anc  the  Biddle  had 
four.  The  test  area,  which  was  shown  in  Figure  32  as  a 
wire-fraae  inage,  had  all  surfaces  displayed  as  light  blue, 
except  the  botton  which  was  light  brown.  The  torpedoes  were 
colored  black. 

Interactive  input  to  this  prcgran  provided  new  torpedo 
positions  in  x,  y,  and  z  object  coordinates,  which  siaulated 
periodic  acoustic  fixes  and  subsequent  display  update.  Any 
two,  distinct  vehicle  locations  described  its  direction 
vector.  Khec  a  new  position  was  input,  a  new  direction 
vector  was  formed  between  this  and  the  last  tcrpedo 
location.  Tc  compute  the  correct  target  aspect,  these  two 
direction  vectors  were  used  to  find  the  angle  through  which 
the  vehicle  bad  rotated,  as  shewn  below: 

T 

cos  «  *  (a  £)  /  (llall  1 1 b|  I)  » 

where  a  and  b  were  the  two  direction  vectors  and  the 
lllll  eperation  represented  the  magnitude  cf  vector  §. 

The  vehicle's  image  was  then  rotated  about  the  axis 
which  was  normal  to  both  vectors.  This  ncrmal  vectcr  was 
found  by  forming  the  cross  product  of  the  two  direction 
vectors.  The  two  points  used  to  specify  this  arbitrary  axis 
required  by  the  subroutine  ROTATE  were  the  vehicles  present 
position,  (x  y  z  1),  and  a  point  found  using  the  normal 
vector.  These  two  operations  were  summarized  algebraically 
as  : 
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where  a  represeats  the  operation  of 
vector  cross  product. 

and 

(z '  y*  x*  1)  ■  (z  y  z  1)  ♦  j 

Thus,  the  correct  vehicle  aspect  was  obtained  by 
translation  cf  the  iaage  to  *x  y  z  1)  and  rotation  about  the 
arbitrary  axis  specified  above  through  the  angle  theta. 

To  realistically  describe  a  3-D  object  by  planar 
polygonal  acsaics  was  difficult  if  the  object  was  coiposed 
of  curved  surfaces  like  a  torpedo.  Its  cigar  shape  was 
basically  represented  by  an  octagonal  cylinder.  The  rcunded 
nose  of  the  torpedo  was  roughly  approxiaated  by  reducing  the 
diaaeter  of  the  cylinder.  The  saaller  diaaeter  of  a 
torpedo's  tail  was  exaggerated  by  reducing  the  cylinder's 
diaaeter  to  a  point.  An  approxiaation  cf  a  propeller  was 
attached  to  this  point.  As  shown  by  the  wire-fraae  iaage  in 
Figure  33,  even  a  crude  approxiaation  of  such  a  ccaplex 
surface  required  aany  polygons.  The  actual  display  cf  this 
iaage  required  the  definition  cf  27  polygons,  56  edges,  and 
33  vertices.  While  the  actual  nuaerical  values  were  not 
iaportant,  they  showed  that  the  storage  reguireaents 
increased  rapidly  with  the  coaplexity  of  the  surfaces  which 
were  to  be  displayed.  Siaple  geoaetric  figures,  such  as 
buildings,  required  little  storage  and  the  effort  of 
approxiaation  was  ainiaal.  The  realistic  approxiaation  of 
coaplex  surfaces  required  a  large  aaount  cf  storage  and 
quite  alct  of  artistic  talent.  Finally,  these  nuaerical 
values  indicated,  as  observed  with  nearly  all  3-D  figures, 
that  the  aeaory  allocations  required  to  store  edge 
definitions  were  usually  double  that  for  any  other  iaage 
discriptor. 

The  applications  prograa,  the  pclygcnal  penetration 
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subroutines,  L00KR1  (the  aodified  Looker  subroutine)  and 
their  respective  flow  charts  were  included  in  Appendix  B. 
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I .  CONCLUSIONS 


The  Three-Dimensional  Graphics  Package  contained  in 
Appendix  A  did  nor  include  two  important  aspects  of  conputer 
generated  graphics,  an  image  shading  procedure  and  2-0  and 
3-D  graphs.  Both  items  are  important  aspects  of  graphical 
presentations  and  should  be  included  in  a  complete  package. 
They  were  items  left  for  future  research  due  to  the  length 
cf  time  required  to  develop  the  present  graphical  software. 

The  intent  of  this  effort  was  to  provide  a  portable 
computer  graphics  software  package.  To  a  very  real  extent, 
this  goal  was  accomplished.  However,  the  development 
software  language,  Fortran  IV,  was  not  entirely  portable. 
In  fact,  a  program  which  removed  hidden  lines  on  the  IEM-360 
failed  on  the  PDE-11  because  of  one  its  fcrtran 
idiosyncrasies.  Additionally,  an  abnormal  amount  of  time 
was  expended  attempting  to  input  data  via  a  file  on  each  new 
computer.  It  would  make  more  sense  for  an  organization  to 
really  standardize  the  fortran  supported  by  all  of  its  main 
computers  before  a  portable  graphics  software  was 
implemented. 

Fortran  as  the  development  language  for  this  graphics 
package  proved  to  te  quite  efficient  with  cne  exception.  If 
Fortran  IV  had  the  binary  operations  common  to  languages 
like  C  and  SAIL,  the  graphics  software  could  have  been 
simplified.  While  no  time  comparisons  between  two  languages 
were  attempted,  the  excellent,  "real  time",  results  acheived 
with  the  hidden  surface  algorithm  indicated  that  Fortran  was 
highly  acceptable  as  the  development  language.  Fortran  may 
net  be  the  best  language  available  for  graphics,  but  it  is 
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the  only  universally  supported  and  accepted  software. 


The  3-D  graphics  package,  as  presented  in  Appendices  A 
and  B,  provide  a  user  with  the  ability  to  present  any  object 
on  any  selected  display  device  which  is  supported  through 
Portran.  Its  portability  was  demonstrated  cn  four  distinct 
types  of  display  devices  through  the  interface  of  three 
different  host  computers.  There  were  only  seven  subroutines 
that  contained  statements  which  were  device  dependent.  One 
of  these,  SHOWIN  would  not  have  been  required  if  the  raster 
scan  CBT  available  had  had  square  picture  elements.  These 
subroutines  all  call  device  procedures  which  performed  the 
same  task,  but  had  different  names.  Each  of  the  device 
related  subroutines  caused  the  device  to  generate  a  line 
segment  (or  vector)  on  the  display  surface.  Usually,  the 
display  machines  were  built  around  a  16^Bit  display 
processor.  The  primary  task  of  the  device  dependent 
procedures  was  a  data  conversion  interface  between  the  host 
and  the  display  computer.  Therefore,  if  a  large 
organization  utilized  a  "standard"  Portran  and  required  that 
all  interface  subroutines  utilize  standard  names,  this 
Three-Dimensional  Graphics  Software  could  be  made  completely 
portable.  The  obvious  advantages  of  this  software 
installation  would  be  a  great  reduction  in  software  and 
personnel  training  costs. 
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APPENDIX  A 


THREE-DIMENSIONAL  GRAPHICS  SUBROUTINES  AND  FLOW  CHARTS 


Each  subroutine  was  listed  with  a  very  brief  explanation 
c£  its  function  in  the  consent  section  proceeding  the 
program.  A  specfic  flow  chart  followed  each  progran.  When 
the  contents  of  a  program's  flow  chart  could  net  be 
presented  on  a  single  page,  a  generalized  flow  chart  was 
listed  first.  It  was  followed  by  specific  charts  which 
aaplified  all  blocks  of  the  flow  chart  that  were  narked  with 
a  circled  nunber  in  a  lower  corner,  such  as: 


The  subroutines  were  divided  into  three  groups.  Display 
a  Hire-Fraae  Inage,  Remove  Hidden  Lines,  and  Hidden 
Surfaces.  The  list  of  variables  defined  on  pages  9  through 
16  were  used  throughout  the  prograas  and  the  flow  charts. 

i-  fiiaElfix  2  MissiLtaM  iiaas 

This  group  of  subroutines  included  those  to  input 
the  inage  data,  the  coordinate  systen  transformations,  the 
inage  clipping  procedure,  and  the  display  subroutine  for 
wire-frane  inages.  Additionally,  the  interactive 
subroutines  to  rotate,  scale,  and  translate  an  inage  were 
listed  with  their  flow  charts.  The  subroutines  which  were 
used  to  nultiply  natirces  were  included,  but  flow  charts 
were  not  drawn  due  to  their  simplicity  and  lack  of 
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ThF  THREE  DIMENSIONAL  GRAPHICS  PACKAGE  CONSISTS  OF  THE  EOI.LU.vINC 
USER  CALLAHLE  SUHROUUNES: 

1.  INITAL-  INPUTS  AIL  OAfA  WHICH  DEFINES  ThF  IMAGE; 
i.  TPANSL-  TRANSLATES  IHE  t  N  T  I R  E  IMAGE  OH  A  SINGLE  PCJI.  YHt  ORON 
1.  SCALE-  SCALES  THE  ENTIPE  IMAGE  OR  A  SINGLE  POL YhEUo0N; 

«.  ROTATE-  ROTATES  THF  CnTIRE  IMAGE  OR  A  SINGLt  POLYHEDRON; 

5.  0 1 SPL  Y -  DISPLAYS  THE  IMAGE  WITH  ALL  LINtS  DRAwN; 

6.  REMOVE-  DISPLAYS  Int  IMAGE  AFIEH  REMOVING  ALL  HIDDEN  LlwES 

7.  SURFACE-  DISPLAYS  lot'  OB.JtC  I  AS  AN  IMAGE  WITH  SOLID 
SURFACES  AETtP  REMOVING  f HE  HJUOEN  OR  HACK  SURFACES. 

THREE  DIMENSIONAL  IMAGES  MUST  BF  CONSTRUCTED  OF  A  SFRItS  OF 
PUL  Y  Ht  DRONS  (MAXIMUM  UF  ID).  E  AlH  POL  Y  hEDRON  MUST  HE  CONS  TRNC  IF.!) 
OF  A  SF  r  UF  CONNECTED  PuLyGONS  (maximum  OF  JO  POLYGONS  1 0 1 A  l.  )  . 
EACH  POLYGON  IS  DESLRIHtD  HY  A  SE I  OF  10  OR  LESS  CONNfcCIFD  EDGES 
(THE  MAXIMUM  [DIAL  NUMBER  OF  EDGES  IS  t>0.)  EACH  fcOGF  IS  L.F  *-  I .  iF  o 
BY  IV.O  DISTINCT  PUINTS.  LAlh  POINT  (MAXIMUM  OF  lc’O)  IS  DEFINED 
BY  IIS  X,  Y,  AND  l  OBJECT  COORDINATES.  ( WHERE  THE  OHJELT 
COORDINATE  SYSTEM  IS  A  THREE  DIMENSIONAL,  RIGHT  HANDED  SYSl'.v 
WHICH  MAY  USE  any  UNI  I  UF  MEASUREMENT . ) 

TO  USE  THIS  PACKAGE  THE  FOLLOWING  DATA  MijST  HF  SUPPLIED  H  Y 
CALLING  SUBROUTINE  INI  T At: 

A.  USING  A  414  cuRMif  I  NI‘1. 1  ,  I  \l  THIS  ORDER : 

(I)  I HF  NUMBER  UE  POLYHEDRONS 

(^)  The  NUMBER  OF  POLYGONS 

(3)  Thc  NUMufR  OF  EDGES 

(4)  THF.  NUMBER  OF  PuINIS 

B.  USING  A  OGI0.S  FORMAT  INPUT  THE  X,  Y,  AND  Z  OBJECT 

COORDINATES  FOR  FACh  POINT.  THE  POINTS  ARE  INDEXED, 
CUNSE  CTlVtLY,  AS  THEY  ARE  INPUT. 

C.  USING  A  ?l«  FORMAT  INPUT  THE  INUICFS  FOP  THE  TWO  PUINIS 

WHICH  DESCRIBE.  EACH  EDGE.  f HE  EDGES  ARE  INDEXED, 

CUNSE CUI IVELY,  AS  They  ARE  INPUT. 

D.  TO  DESCRIBE  FACH  POLYGON  INPUT,  IN  THIS  ORDER: 

(I)  USING  AN  14  FORMAT,  The  NUMBER  UF  EDGES  WHICH 
DESCRIBE  THIS  POLYGON. 

(«!)  US !  I.G  A  lot  4  FORMAT ,  TH(  INDEX  NUMIIEPS  UF  THE  EDGES 
WHICH  DF  SCR  I  HE  THIS  POLYGON. 

THE  POLYGONS  ARE  CONSF  CUT IVELY  INDEXED  AS  THEY  ARE  INPUT. 

TO  RtDUCt  STORAGE  SPACE.  ALL  UF  THE  POLYGONS  ivHICh  Dt  TERMINI 
A  POLYHFDRUN  MUST  HE  INPUT  CUNSE CU I  I VF L Y . 

E.  TO  DESCRIBE  EACH  POl.YMFDRON  INPUT,  USING  A  £  1 4  FORMAT,  1  HE 

INDEX  MUMMERS  OF  I  HE  FIRST  AND  LASI  POLYGONS 
WHICH  DtSLRIBE  IMIS  POLYHEDRON . 

F.  USING  A  3GI0.3  FORMAT  INPUT  TliF  OBJECI  COORDINATE  S 

X,  Y,  AND  Z,  UF  THF  POINT  FROM  WHICH  I  HF  IMAGE  IS  Tu  lit 

Vlt.-.FO.  THt  Vltw  Pi)  I N I  f’UST  HE  EXTERIOR  FROM  ALL 
PUL  YHEOhONS  .  \. 

G.  USING  A  PGI0.3  F  OPM A I  I  GPU  I  ThF  DISTamCE  FROM  TmF  VlFwTNG 

SCRLEM  I  HA  T  IMF  DISPLAY  IS  10  «t  VttwtO  AND  THE  Vt  R I  1 1 6L 
SIZE  UF  THE  SCREEN.  THESE  IwU  ME ASURf.MI.Nl  S  MuSI  USE  IMF 
SAME  UNI  IS. 

H.  USING  AN  1 4  FORMAT  INPul  IHE  INDEX  UF  THE  CULUH  TABLE  TO 
IH  USED  TU  CONSTRUCT  Int  IMAfit. 

I.  USING  AN  IT  FORMA  I  INPUt  THE  IMUFX  NUWHE  R  OF  (HE  COLOR  FOR 

EACH  POLYGON.  II  THF  1 MAGF  IS  TO  HE  DISRl.AYFU  AS  A  wIRL- 

FKAME  (BY  CALLING  DISRLY  HR  RF  MUVE  )  Ttlf  ENTIRE  IMAGE  wll.L 

HE  DRAWN  USING  Tilt  COLOR  UF  T  HI  FIRST  Pill  U, UN. 
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C  . ~* 

C  1(1  Sm0.4  Ml  I  f*  A  t ;  t  aIMviI'I  I'Ml'vltU.  MIDDEN  L  I  Nf  S  t*Ll  i 

SUBROUTINE  UlSi’LY  Af  M.R  INIIAL.  OlSPlY  MAS  Mu  CALI  INC  * 
PAMAMtTtrtS.  1 0  OISF’IAY  MF  J  NAgE  AFILW  REMOVING  ALL  MlUDtN 
LINES.  CALL  SlOPriUllNE  REMOVE  (N(l  CALLING  PAWAMtUHS)  AFTER 

INIIAL. 

10  USE  1HL  GUMROII  1  INFS  ROtAM,  SCAU  ,  AND  TKANSL  lilt  EOLL  L'c  I  Ml. 
PAPAMtlERS  -'MSr  flf  SPtClEIFU  VIA  ME  USER’S  PROGRAM; 

A.  NOlAIEUR.  lAKJS.Pt.P?.  IMf  1  A),  .vMf  we : 

1.1M-  IS  a  1  All  E  Lt  k't  M  ARRAY  .vM  l  c  M  DEFINES  rtMlCM  P  A «.  1 

OF  I  Mt  MAGt  is  10  MF  no  1 A  TED,  AS  FULLOmS  : 

( A I  To  ROIATE  a  single  POIymFDRijN  St  1  IR(1)  =  Ik(.*)a 

ME  PUL  YFitORON  *  •>  JNoFx; 

(01  10  Rul  Alt  SEVtRAI.  CONSECIIT  IVtLY  lNl)t*EP 
POL  YHl DRONS  SF  I ; 

1 K  (  I  )  s  IMF  (Nl'tx  OF  IMF  FI  RSI  POl  y  ME  DRUM," 

I  K  ( *>  )  =  TlF  I  N  0 1  «  OF  lufc  L  A  (i  1  Put  Imi.DkON; 

(C)  to  RDIAIt  1  hf  FNUPt  I’AAGI  SF  I  I -Ml)  =  SI. 

2.  I  A  x  I  S  OF  ItR'MNE  S  t  Mf  Axis  ABOUT  *M|t>  1  >  «t.  POL  YuF  >>.  >i> 

’JR  ENTIRE  MAGE  IS  Hi  ROJAIE,  AS  INDU.AltO: 

(A)  14XISS0  -  ROIATE  ABOUT  OBJECT  x  A»lS 
(t>)  |  A  X  l  S  A  I  -  MulATt  ABOUT  OBJECT  Y  Axis 
(C)  IAY1S  =  P  -  ROTATF.  Af.OUt  OR  JF  L I  7  Axis 
(0)  I  A  x  I S  a  S  -  RUIAIt  ARol.ll  AN  ARBITRARY  AXIS  ;.MjCi 
Post  mF  SPECIF  Ito  USING  1  ME  ARRAYS  p|  AND  IV. 

5.  PIlS)  IS  AN  ARkAt  ,ym|Cm  CONTAINS  TmF  X,  Y,  A  1,0  l 
(OBJECT)  CUORI)  I NA  Tf  S  Ml  UNt  P0IN1  ON  lot  AWB1KAH?  AXIS 
OF  ROTATION,  I'lFlEHf  : 

(A)  PI  (  I  )  IS  THE  <  VAL'.IE 
(111  Pt(.>)  IS  I  HI  1  VALIN 
(t)  PI  (  i)  IS  I  Mf.  7.  VAUJE. 

<1.  I  VM)  IS  an  ARRAY  CONTAINING  ToE  x,  Y,  AND  * 

COORD  I N  A  I E  S  OF  Any  OlHFR  DIFFERENT  POMT  ON  T  Ml. 

ARM  TR  ARY  AXIS,  WHERE  >V  (  I)  ,  PPM),  AND  PP(4>  ART  USFu 
FOR  X,  Y,  AM)  l  rOOROlNA IFS,  »f SPEC T  l  VE t  Y  . 

S.  iMtTA  IS  IMF  ANGIE  IN  DEGREES  ImroiiCm  y.hICM  I  Hi 
POLYHEDRON  OR  TM{  tMIWF  IMAGE  IS  III  Hf.  ROTAIFO. 

B.  SCALE! IR,S),  rtMLRt: 

1.  IR  IS  AN  INTEGER  ARRAY  USED  111  DtURMNf  WHICH  '»AR  I 
UE  THE  IMAGE  IS  10  HE  SCALED  AS  DEFINED  Aiiuvt  FOR 
ROTATE . 

2.  S(S)  IS  AM  array  with: 

(A)  SCI)  IS  Mf  SCALE  FACTOR  FOR  I  Fit  X  COORD  I  iv  A  I F  S . 

( 0 )  $(«•>)  IS  The  SCAlf  F  AT  1  OR  FOR  IMF  Y  COORD  I  NA I F  S . 

(C)  SCO  IS  1  Mf  scale  F  Af,  1  OR  FOR  I  ML  2  COO»t;  1  |»A  1 1  s . 

C.  TrANSL  ( Iw»  T) ,  11MFRES 

I.  |P  IS  AN  INIIGIH  ARRAY  USED  M  OE.  t  h  R'M !  NE  WFlILFt  F'API 
UF  ME  IMAGE  IS  10  f'L  SCALED  AS  DEFINED  ABOVE  IN 
ROTA  IF. 

?.  1(4)  IS  AN  ARRAY  U I TM{ 

Ml  1(1)  IS  THE  x  DISTANCE  TO  TRANSLME  MF 
POlYMEORfJN’S  l*Ar.i. 

(HI  T(<?)  IS  ME  V  oisi,  TO  IP  ANSI  All  |Mt 
PUlYHl  (IRON'S  IMAGE. 

(C)  t(T)  IS  IMF  /  D I S I  ,  TO  IMANSLAIE  I  Fit 

POL Y*H  DRUM’S  I'-AOl  . 

TmE  SF  tMRtt  SUBROUTINES  MUSI  ill  CAIlFD  AFIER  INI  t  AL  AND  MIFoR’t. 
EltMfR  DlSPLt  DR  R  E  xillv  F  ,  INIllALLt.  AFTIP  IMF  IMAGE  IS  IMP!  1 1 
r  Ml  SUPHOU I  I  NE  IwITAL  lit  F  M  NF  VK  R  (IF  CALLED  AGAIN.  IMUS,  M 
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c -  CUKNGr  !Ht  DISPLAY  iHfc  IHRFE  SUHRUU  f  I  f .  f  b  ABOVE  “A  V  BE  CAUFU  IN 

c  ANY  SEQUENCE  AFIFR  WHICH  t  I  I  HER  OISPl.Y  UR  RE'-OVt  MUST  BL  L  A  lL  I. !'  • 

c 

c  1 MF  CALLING  PARAMETERS  Kfc  Oil  I  RED  F  OP  D1SPLY,  PE  -*l«VF  ,  Ai,l> 

C  SURFACE  ARE: 

C  1.  IW  IS  a  T .HO  FltMEMI  ARRAY  WHICH  DETERMINES  WHI£H 

C  PARI  UE  THE  IMAGE  IS  TO  HE  0 1  SPLAYED  *  ANO  IS  USED 

C  AS  DEFINED  ABOVE  FOR  ROIAIF.  •  . 

c  2.  for  the  subroutine  surf ac  only  the  parameter  ilook 

C  IS  ALSO  REQUIRED  WHICH  IS  USED  in  OEIERMINE  WHICH  SURFACES 

C  ARF.  TO  be  DISPLAYED  AND  WHICH  ARE  TO  bE  REMOVED: 

C  I.  I  LOOK  s 1  REMOVES  THE  HIDDEN  SURFACES; 

C  ?.  ILU0K=2  DISPLAYS  THE  HACr  OP  HIDDEN  SURFACES, 

C  WHICH  ALLOWS  IHE  USER  TO  SEE  INSIDE  THE  POLYHEDRONS, 

C 

CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCLCcCCCL 

c 

CCCCCCCCCCCCCCCCCLCCCCCCCCCCCCCCCCrcCCCCrCCCCCCCCCC[:CCCCCCCCCCCLrLa.CC 

c 

C  INIIAL:  INPUTS  the  IMAGE  OAIA 

c 

CCCCCCCCCLCCCCCLCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCLCCCLClCCCC 
SUBROUTINE  INITAL 
COMMON  /A  A/POL  YUE  ,POl.  YHN 
I  COMMON  /AH /POL  Y UN , POLGN »  SHAD 

COMMON  /AC/KDGE 1 ,E0GE2,E0GEN 
COMMON  /AAA/xE(I?0).YQC1?0),7E(I20), POINT N 
COMMON  /CC/VX, VY, VZ, A,  B, CX, CY.CZ 
COMMON  /JJ/vSx,VSY,VCX,VCY 

INTEGER  POLYHE.  (  1  0 , 2  )  ,  POL  YGN  (60  ,  I  1  )  .EDGE  1  (  100), EDGE  2(100), 
*polyhn,pplg‘j,edgen,poinin,ram  iek,scree:n,colort  ,  shade  so) 

0PEN(UM1T  =  1  ,MAMc.=  'FORT01  ’  .Type  =  'OLD' .readonly; 

READ!  1,1)  PULYHN, POLGN, EDUEN.POIMN 

RE  AO  (1,2)  C(XECI),YE(I),7Em),I  =  l,P0INTM) 

READ(1,5)  (  (EDGE  I  ( I  )  ,  EDGEi (  1  )  ) ,  1  =  1  ,  EDGEN ) 

00  100  I  -  I  , POLGN 
REAO(l,a)  J 
POL  YUN( 1,11) = J 

RE  »D  ( 1  ,  S )  (POLtGN(I,K),K=l,J) 

100  CONTINUE 

RE AD (1,5)  (( POL  YHE  ( l,  I  ),POLYHE  (!,<>)),  1  =  1 , POL YHN) 

RE  AD  ( 1  ,  <? )  VX,VY,VZ 

RE AD ( I » 2 )  Cx.CY.CZ 

RE Au ( 1 , b )  A  ,  B 

READ( 1 ,0) ICULUR 

REAIH1 ,«)  (ShAO(  I )  ,  1  =  1  , POLGN) 

VSX=3^0.0 
VSYs?aO.O 
VCXsJc’O.O 
VCYS2/I0.0 
X1=0.0 
Y1=0.0 
*2-2 .0*VSx 
Y?s V  S  Y 

I sRAM 1 EK ( I DM ) 

IF ( I .L  T , 0 ) WR I  1 F (b,B) 

I =SCPtE  N ( x 1 , Y I , i?,Y 2) 

IFU.LT.OJ.yRIIF  ((,,«) 

IsCOLDRI (ICULUR) 

IF (l.LT.O)wRt IF  C6, 10) 

RETURN 
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1  FORMAHula) 

?  FORMA  I  (JGIO.  J) 

S  FORMAI  (,>U) 

a  fuhmai ( I  a  > 

S  FlIMMA  I  (  1  0  1  <1 )  •  i 

ft  forma r ( 1 0.3 j 

7  FORMAT ( l I ) 

8  FORMAT  (£X  ,  •  |h£  NAWTfe*  OfcVlCt  AOIJLO  NOT  OPEN') 

9  FORMAT  UX,  •  THt  FUNCTION  SCPEI'h  K  *  1  L  t  0  '  ) 

10  FORMA  I ( 2X , ' T  Hfc  FUNCTION  COLOR!  FATLtl)') 

ENO 


U 


5 

C 


INPUT: 
POLYHN 
OLGN 
EDGEN 


m 

fj 


INPUT: 

E(I) ,YS(I) 

:e(i) 


INPUT:  J 
POLYGN ( I , 11 ) 


f  INPUT: 
POLYGN ( I, K] 


_  _  J 


/  INPUT:  I 
I  POLYHE  ( 1,1)/ 
POLYHE  (1,2)/ 


"COLOP 

rABLE 


I ■ 1 , POLGN 


INPUT 


- IS HAD(I) 


INITIALIZi 
VEX , VCX , 
VSY , VCY 


INITIALIZE  SCREEN 
SELECT  COLOR  TABL'.- 


RETURN 


no  no 


ccccctcccccLCcrccLCccLCCCcrcrLCcrcccrrcrrcrccccccLCcccrLrciHfrcccuLt 


HI)  YCL  M  I  TRANSFORMS  THt  04JECT  CHOK’D  l  N  A  TE  S  T(J  t  r  t  COOKDINArFS 
AND  READYS  1  ME  I vi Ali F.  FOR  CLIPPING 


ccccccccccCLCccccccLCcccccccccccccccccccccccccccccccctccciccri.cc  cu  cc 

SUBROUTINE  ROYCLP 

INTEGER  PU l NT  N, POI NTM , F  OGt  N ,  E  DGtM .  E  CGE  ( 2,  ?0u) ,  f  COE  I  IIUO) 

INTEGER  PCHANr.(lOO),fuGc?(  100) 

COMMON  /AAA/Xtl  l 70 ) »  Y E  (  l  ?  U  T  «  /  E  (  !<>U)»PuINTN 

common  /aah/  xs(  i<»0) ,  ysi  ixo ) ,zsi  !<>•))  iRoimv 

COMMON  /AC/  EDGE  t  .EOGE^.EOGEN 

COMMON  /AAD/  f  OoE  >  f  JGE  m 

COMMON  /CC/  Vx,vy,v/,A,o,C».Cy,C7 

COMMON  /FF /MCmANG,  rnf I  A 

COMMON  /JJ/VSX, v3y,VCX,vCY 

dimension  v('),a).n{4,u),i3(<».U),M(u,«),T4(u( 

OIMENSloM  TnE.vC4»  ,  TEMRf.1) 


a  ) ,  R  N  i  4 , «  ) 


so 


160 


OAT  A  V.T  t  ,  T7,  IS,  T4, 
DO  JO  1  =  1,  It'll 
PCHANOf I ) =0 
P0!NlvrP0lNIN 
EOC,EV  =  E'OGEN 
DO  160  1=1, EDO6  N 
EDGE (1,1) =  E  OGt 111) 
EDGE  ( 2 ,  I )  =r 0GE71  I  ) 
COM  I  NOE 
DO  136  1=1.4 

T1(I,1)=1.0 


RN/  4ci»  V  .  0  / 


lib 


U(I,I)  =  I.O 
T4(  1 ,  1  )  =  l  .0 
HN( I , I )=l .0 
CONI  IN Uk 

T  l  (4, 1  )  =-VX 
T1 (  4  ,  «?  )  =*V  Y 
?I(«,J)=-V7 


T«J(  I  ,  I  )=«1 .0 
T<M7,3)=-1  .0 
T7(3,?)=I .0 
T?(4,«)  =  l  .0 
S()  =  V X  »  VX  ♦  V  Y  •  V  Y 
SUO  =  Si)RT  ISO) 

CS=V Y /sou 
S$»VX/SNG 
T3( I , I )=CS 
T  3 ( 1 , 3 ) =  SS 
T  J( 3* I )*-3S 
I  31 3, J)=CS 
S0sSQtV/«V7 
SHO  =  SGR I ( SO  ) 

CS$*SUO/SRG 
SSS=V7/SRN 
Ta ( 7, 7 ) =  CS5 
t«(?,  J)«-SSS 
T6(3#i)=SSS 
T«(3#3)tCSS 

CALL  GMRRi)  (M,T7,V,4,4,4l 
CALL  GMPRl)  (13, T  4, 1|, 4, 4,  *i) 
CALL  GM^RUIV, I l , T?,4,4,4) 

S  X  s 1  .0 
SY*I  .0 

IF ( VSX .&! .VSY )  $<=VSY/VSX 
IE  (VSx.LT.VSY)  SY=v!iX/VSY 


'U 


I 

I 


RN ( 1 .  I  )sA/R«SX 
RN(2,«i)sA/“»Sr 
CALL  r?,RN,V,'i,«,4) 

00  15/  I  =  1  » **0  l  N  f  fl 
1FSP(1 )=*£(! 1 

TEMP(?)=YE(I) 

IfKP(5)=/F(I) 

TEMP{«l)sl.O 

CALL  GPPO  (  IfcPP#  V#  TNE  w ) 
XSll  )  =  TNt  (  1) 

TSII )S|ME-(?) 

?S(n  =  !NEw(3) 

137  CONI IOUt 
RETURN 
FNO 


EDGE(1,I)«EDGE1(I) 
EDGE ( 2 , I )  «£DGE2  ( I ) 


FORM  MATRIX  T1 

(4,4)-TRANSLATSS 
VIEWPOINT  ORIGIN 


FORM  MATRIX  T2 
(  4 , 4 )— ESTABLISHES 
LEFT-HAND  COORDINAT 


FORM  MATRIX  T3 

(4, 4) -ROTATES 
VIEWING  AXIS  INTO 
THE  X-Z  PLANS 


FORM  MATRIX  T4 

(4,4) —ROTATES 
VIEWING  AXIS  INTO 
THE  Z-AXIS 


nnnoo 


ccccccccctctccccccccCLCcrtCLCCCcru  cccccccrcru  rein  ccrirmTccma  c\ 

Cl l ►» :  clips  inf  r *•* * u r  against  the  vir.n'it  pisplay 

ANO  t  L  I  M  l  NA  1 1  5  ALL  POWTIONS  OF  E  lUU  S  'h|Cm  akf  OFF  Inf 
SCKftN 

ccccccccccccccccccccccctccccccccctccrtfccrn rii.LcccccccLCccLCca.u  ur<. 

SUftMOUl INt  CL  IP 

DIME  No  ION  {(£),] TO t(?) 

COMMON  /*(>/  **uL  Y  GN  ,  POL  ON  >  SH  AO 

Common  /AAO/El'C.t.kPiiE'* 

COMMON  /Fr  /  PCHANG.TmETA 

C0M«0'»  /  A  AN  /  XSd<?0).Y3d<?0),i,idt'0), POINT' 

COMMON  /[l/  ICN*(<?.4) 

iNUGt  P  POL  YGNfoft  ,  l  n  ,F  oot  (in’lj)  .  PC  HANG  (  c  '  0  )  .  »’ILGN,F  PCI 
1,SMAOim0).PO1N1M 
Oo  lie  I  -  I  »LPOf  '* 

1S=1 

LUs? 

j( n if  oo t ( i , i > 

JT^MFufifeTc  ,  1  ) 
j|sj( n 

X( l ) sxS ( J I  ) 

X(?)*XS( J?> 

Yd  )s>xN(  .in 
Y(«f)sYS(.l?) 

2d  >«.’S(Jt  ) 

/  <  ^  1  =7S ( I 

HOT  (  I  )S  iront  (MD.MU.^n.ll 

n  0  T  l  ?.  )  S  l  C  ont  (  X  ( tM  ,  Yt  >  )  ,  L  ( i  )  .  c') 

•  »4S  ibsiipi  ( n •  i  toK^i 

iFdM.io.oj  r.o  ro  i oo 

00  t<M  *  =  l  M 

l  Ax  l  C»**  (  J,K)  *IfMK(i*#h  ) 

IMU.fO.^1  GO  10  Mi5 
141  CONTINUE 

if  (i  rod  is)  .to.oj  call  isyapus.lm 
iksjdb) 

PCHANGUK)s| 

IFdCHM  ISdJ.l'J.OI  GO  TO  144 

T*uib)»Mi5))/(ouis)-MiN))*u(LH)-;(isn) 

Z<l$)tl*(7(lNW(tS))*ZdS) 

X(IS»*-7d:.» 

t ( IS>*»  •( Y (LN)-Y (IS)  1 ♦»  (IS ) 

GO  TO  1  a  7 

144  IFdCHNdS,?)  .  e  Gl  -  0  I  uP  TO  MS 

l«<7ll5)*iUS)>MI>(lN)-MlS)l-(f(LH)-f(l?)J) 

/  (  1  S  )  S  1  •  I  2  1 1  fl )  -  7  d  S  )  )  ♦  /  d  S  ) 

XdSM/dS) 

T(lS):l*lY(LM*Y(IS)l*ld5) 

(.0  TO  I 4/ 

MS  IF  dLO*dt,T).H).0)  1.0  to  Mm 

l>l7(li)'Y||M)/|0(IS)-»(lM)-(,’IU')^dS)H 
fd5)s  I  •  </(LN)-7dS)  li/IIS) 

tus)*-n  i$> 

X(IS):l<UUN)*«n^)«iU$l 
go  to  m; 

146  i»i;iist-TnsiK((m;iiM(is))*(iaN)*/<isni 
ZllS)*lM7(LNl-/dJ»))*7d5) 

YdSMZdS) 

x  d  r. )  s  I  M  x  ( l  N )  -  x  {  |  5 ) )  ♦ » (  I  s  » 

147  l  TUT  ( ISMICflUC  (<UM,T(I»1,7USMS) 
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CO  to  |iic 

mo  ir;jds) 

IFlPCHAModd.tO.O)  to  TO  Jaws 

PuiNT*=por.tA  ♦  i 

IF  (POINT*.  C.I  .!<M  )  CO  TO  )'<* 

XS<POJMm)sX<  IS) 

TSIPOlMdsYUS) 

ZS(POTN)«)=/(  IS) 

EDGECIS.  DsPoINTM 
1488  IT=J(LO) 

IF IPCHANOI I T ) .tO.O)  GO  TO  138 
PO I N  t  vsPo l M  T  ?  ♦  1 
IF  (P0INTV.G1.1P0)  GO  TO  1  a >» 

XSlPOIM-i)  =  »  ((  ‘m  ) 

TS(PUlMM)  =  V  ((  M 
ZS(POINTV):?  a\  ) 

EOGF (IN. 1 )=P0INTM 
GO  TO  l  St* 

1 4?  EDGfd.Dsu 

tl)0E  <P»  l  )  =  0 
lT=Jd  ) 

PC  HA MG l  I  T  )  -  1 

n=Ji?) 

PC  H A  MG ( 1  I  )  =  I 
138  CONTINUE 
RF 1 URM 

149  WH! TE(hi 8) 

8  FORMAT  ( /  / 1  X,  '  l«l  NU-!8t'W  OF  PC1N1S  HAS  E'CEFOEO  ThE  MAxI^li-v 
1SI0PAGF  ALL  OCA  It  D  FU»  POINTS*//) 

Pt  TURN 
END 


113 
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m  H 


o  o  o  o 


ccccccccccccccccccr.cccccccccccccccccr crtccrcccccrccucccicccccrcccLrcrc 

ICOOF:  UStO  Hr  CLIP  TO  OF  1 6  W  V I NF.  IF  AN  tNP  POINT  IS  VISIHlfc  Af.p 
IF  MOT  TO  f.HlCH  SIDE  OF  IhE  DISPLAr  THE  POINT  IS  LOCATED. 

ccccccccccccccccccccccccccccctccccccccccccccccccccccccccccccccccccrccL 

FUNCTION  lCUDF (X,Y,Z, J 1 
COMMON  /II/ICHK(?,4) 

DO  1  3V  Js|,<4 

13<»  ICHK  ( I , J ) -0  — 

IF  (X.LT  ,-Z)  ICHMl,l)  =  t 
IF(X.GT.Z)  ICrtK(T,2)=| 

IF(t.LT.-Z)  ICMK(I.i)s| 

IF(Y.GT.Z)  ICI1K(I,'4)  =  1 

ICDOE  =  ICHK  ( 1 ,  1  )  ♦  ICHk  (  I  ,  <»)  ♦  ICH*  (  I ,  3)  t  ICHK  (  I ,  <l) 

RETURN 

END 


120 


_ * 


I  CODE»ICHK  ( 1 ,  1 )  -*■  ICHK  (  2  1 1 )  +• 
ICHK (3,1) +  ICHK (4,1) 


U  L)  u 


ccctccccccrcciceccccrcccccrcccccri  n  ( ertrc  :cr.ccrciccri  rcceccrcn.fi.  1 1 
ISffAPj  $*AP3  l»*t  vunts  or  I  ■» i *  INtf  ,‘f  Nb. 
ccccccccccccrccercctccn  ccccccccci.ciriciccr  ,ci  rrcccccircrecccecici ci 

3UHKUUT  INI  lSwAP(l«J) 

n*i 

i«j 

Jst  T 
Wit  URN 
l  NO 


ccccccceccrccccio  rcctccreccci  recccccicr.ri  rcrcri  ccrccccccccccica  en 

c 

C  Swaps  swaps  tmc  vaiups  or  l>.o  » cal  mh'hiws. 

c 

cccccccercccua  ccrcccccccccccccrr.rcccccrcccrcn  ci.ccccrccicca  rcnn 

SUHHOOl INI  SnAP(k.V) 

I  *X 

r*t 

RttUWN 


uuu 


t 


ccccccccccccccctcccccccccccccccccicccrrt.ccccfccrcccrccccccccccccci.cr  ct 
SC«N:  THANSKOWMS  Etc  COUKi)  I  w  A  1 F  S  TO  SC»tEK  COORDINATES 
cccccccccccccccr.ccccccccccccccccrcccccccccccccccccccccccccccccccrcn t  c 

SUBROUTINE  oCRN 

COMMON  /AAH/  XS(120),YS(l<J0)#ZS(l(J0)»PniNTM 

COMMON  /FF/  pcmang 

COMMON  /JJ/vSa,VSY.VC<.VC> 

iNTEGtW  PCHANG(<?0O),PUTNIM 

SsVSX 

IK (S.G1 .VSY )  SsvSt 
00  1SI  I=T,P01N1M 

IF  (PCMrtfnif  1  )  .EO.  I  )  00  10  1ST 
ZsZS(I) 

xsm  =  »s(  i  j//»s*vcx 

YS( I  )  =  TS(  l  )//«5»VCY 

zst i )=-i .o/i 

151  CONUnUE 
RETURN 
END 


124 


nnon 


ccccccccccccccrcccciCLCcccccccccccrcccccccccccrcccccctccrccccccrrcrLrc 

DISPLY;  MASTER  SUUWOlillNE  .iMlfM  DWA.iS  T  HE  CLIPPfcO  IMAGE  nN  1  Hi 
SELFCTtD  UUTPUI  DtVlLF. 

CCCCCCCCCCCCCCCCCCCtCCCCCCCCCCCCCCCCCCCCCCCCCtCCCCCCCCCCCCCCCCCCClfLrr 
SURMOUT  INt  OISPLYlIK) 

DIMENSION  IR(?) 

COMMON  / AA/POL YHE , »0L YHN 
COMMON  /AU/POLYl.N,POLUN,SMAl) 

COMMON  /a AO/  tOl.E.kOGEM 

COMMON  /AAH/  XS  ( I ?0 ) *  V  S ( I  ?l> ) ,  ?  S  ( I  JO ) , PO 1 N  T  M 
Common  /ff  /  fl'GIhi, (<;oo) 

iNIEGtN  POL  Y  CM  «*(» «  I  I  ),EDGE<?,?0(1)  .POLGN.F  OCl.M, COLOR 
IN  IF  GtR  VEC  I  OR.  SMAO  (t>0  )  #  PO  I  N  I  EOUC  HG  #  POL  Y  ME  (  l  0  ,  ?  I  ,  POLYMN 
CALL  Wl'YCLP 
CALL  CUP 
CALL  SCRN 
Oil  JO  I  s  I  *  t  OGt  M 
JO  EOGCNG ( I ) =0 
JL*1R(  1 ) 

IFIJL.FO.il )  GO  TO  IS? 

KL=1R<?) 

IsPOLYHi (JL. I  I 
JaPOLYHt (KL,?) 

GO  10  IS?? 

IS?  1=1 

JsPOLGN 

IS??  JLM  =  SHAO( 1  ) 

1 1 =COLOR ( JLM I 
DO  1SJ0  ksI.J 
LNsPOL  YGN  C  K , I  I  ) 

DO  ISaO  N  =  I  « L N 

LsPOLYGNfR ,N1 
K 1 sfcDGt ( I ,L  I 
K J=EDGE (?»L  ) 

1MM.FU.0)  Gil  TO  IS-IO 
IF (kDoCHGFL ) ,F  Q. I )  GO  TO  IS  iO 
EOGCMG ( L I = I 
XSl=X'j<M  ) 

Y$I=YS<M  )/?.0 
XS?*XS(n?) 

YS?  =  YS(i'?)/?.0 
KPavFCTOMOSI  ,YSI  ,XS?,YS?I 
IMAM. LI. 01  1 1 E I  6  #  i  ) 

IS40  CON  T I  NOE 
IS30  CONI INUF 
RFlURN 

FORMA I ( • THE  FUNCTION  VtCToR  FAILED*) 

END 


l.: 


J 


PCHOlL) 


RETURN 


J-l 

K-POLON 


KL«IK  v  2 ) 
J-POLYHE( JL, l 
K ■POLYHS ( KL , 1 


LN-POLON( I, llH  I  1-0*1 


N-N*  1 


L-POt.YGN(K,N> 
Kl-EDGS( I,L) 
K2-EOOE(  2,L> 


L-POl  YON(K.N) 
M-EPGE(  1,  t.) 
K2-SPGE(2.l  ) 


DIGPLYi IK > 


KDYCL P 

CLIP 

5CRN 


EERO  ARRAY 
IE PC HO 
JL-IR( 1) 


DISPLAY  VECTOR 
vS(Kl),  YS(Kl) 
TO 


ccccccccccccccfi  ccfcrtcrccccccccct  ccccccccrcctrcccvicra  v  vcrcccicv »  n  » 

c 

C  ROIATt:  W0I4IES  A  SlNGLL  POLVMEOWON  on  Th»  |  MAGI 

c 

cccccc Lcccct-rcrcri  cccccrnctccca  iccfv  tcicccrrcci'icccccccccccccca  i  >  a 

SUHMOUl  I  vt.  NO  t  a  It  I  I  n,  h  A  « I  ;■  ,  I  ,  ,  1  ♦*»  ) 

COMMON  /**/  POL*m|,  POI  **N 

Common  /*»•/  Riilegn.polgn,  s^ac 

common  /4i/  fcut  i  .toot^.ror.t n 

COMMON  /A AA/xt  \  U'OMI  1170  I  .  n.  (  I  70 )  .POlNt.N 

COMMON  /EE  /PC**NG,  tut  I  4 

vs  ION  1 1  a ,  i ) .  R  l  i  u , «) .  v.>  (  u ,  (1 1 .  *■  j  ( J ,  <1 ) ,  t  M  <4 ,  a  i ,  ir  mp  i  n ,  .<  i , 

HL*(  <«  ),LM(*).PI(S) ,  t'c  (  J) ,  1  R  t  7  * 

IMCGtR  POL » me  ( 10,  ?)  ,pol  vg».  tt,o,  t  u  .trcr  u  too) .epolpu oo)  • 

M’Ol  T  NO ,  IM'L  (if  I ,  t  Pv.f  N,  MG  |MN,  I  n  ,  4  4  »  I  S,SmAO(oO  )  ,  PC  N  A \G  t  .’O  0  1 
OAl  A  I  ,W|  ,•*,?,  *1.  It ,  l  twp /«»»»•  0.0/ 

00  SO  Il*I ,00 ININ 
JO  PC VANG ( l t  )  *0 

1ME  I  ASIHF  •  S  .  I  >1 1  N<l/  I  VO. 

Jl *  I R (  I) 

IK  Jl  ,f  1).  SI  IGO  10  111 
*L*IM(7) 

J*PCl»Hl  (M  ,?) 

I |*MOLVhFt  JL,  I  1 

GO  10  ( I  U\  I  I S, 1 1 m 1 ,NA  \  |  S 

00  IIS  v  *  I  I  ,  J 

INiPOClO  ,(N, I t  ) 

00  lid  N  *  I ,  L  N 
.  L*P0L>GMr,N1 

r all  hoi* itoctt  a  n 

C  At  L  KOI  HEOGEXL  )  ) 
lift  COMINUE 
US  CON  1  1  Nut 
RE IUPN 

11 7  00  1  I  «  N  «  l  I  ,  J 

LN  =  Pl'L  U'N<n  ,  1  I  ) 

00  1  I ®  N  U . t  N 

i  -pucm'.mn.ni 
call  KOtUFOGk  lit  n 
call  nOTrtEOGEKL  I  I 
||«  COMING) 

I I  (S  CONI  tNUt 

Mf  ItlRN 

III  00  170  A  *  I  I  ,  J 

LN*POl  >r-N(A  ,  1  n 
00  171  »U1,Ln 

LNtPOL  VI.N(a,N  ) 

CALL  •'tlimtCl  HIM 
CA»  L  HOt  UFOGtt’a  1 
171  CON  I  I  Nli| 

170  COM! Not  % 

ME  fOMN 

11*  0**t*7l  I)-*  HI) 

0T*P7C7)«t*l  <7) 

0/*Pr,(S)-P|('l 
OlfMpxPx  M'x  »'»»  n't  *tW  «07 
0  I  S  I  *  SOM  1  (DIE.  VP) 

EksOA/OISI 
f T*U»/0|SI 
C  7  *  I)  7 ' 0 1  S I 

VtSGHMt  E«rv*tf  »E  7)  , 

00  l*V  1*1,1 
.  .  I(L»  l.  1*1.0 


U3 


hi<l.l>«i.o 
R2(L,l 1*1.0 
H4(L,L  >*l  .0 
122  CONI  I'HIfe 
AA*fc?/V 
HH*t>  /  4 
l|4,|  >«-P|  (  I  I 
»(4,2l*-(*l  <21 

ua,  ( n 

HI 

HI  (2.  ilstOt 
HI  (  i,21*-t>H 
Hu  i,  m»a4 
H2( I  *  1 ) * V 

R2<  i  ,sur\ 
h<m  s,  n*-n 

R  2  ( J  *  i  1  *  V 

H J(  1  ,  I  I ifUSl  lMfc  I  *  I 
H  J(  1 ,  2  >  *-8|i|(  I  «t  1  *  > 

R J<2, l )*-«i< l ,2> 

NH(2*4>)iRi<  I  ,  I  I 

CM  l  OMH'tM  I  ,K|  .  4t4.4) 

CALL  l»M(‘R(.  (  TFhp.m/,  1  1 , 4, 4, 4  ) 

CALL  CH('KO(  {!.*ttl£MH ,4,4,41 
»C« V  *V  »f  *  *E* 

RF  x  V  /H( 

H(,*t  4/Ht 
ROlAA« AA ♦ftrt.MH 
MA«AA/»0 
Ht(*h((/HO 
f (4, | )*HI  (  I  ) 

?  (  «  ,  2  )  *R  I  l 2  I 
1  (  4 , 1 1 *H  1  I  11 
*1 <2.2)*HA 
HI  <2,  .Il*-x4 
HI  I  J,2)  *HH 
HI (  I,  4 1 *H  A 
R2< I . 11 *HI 
R2<  i , 

H*M  4.  I  1  * 4 v. 

»2<J.S)*Nf 

CALL  liVHHOt  If  4P.R2,  11,4,4,41 
CALL  UMl'HiM  1 1,M| ,  IF  4»>,  4,  ) 

CALI  (.Ni‘Hi>(  |f>P,  1,11,1,4,41 
IM  1  .1  0. 41  1  00  10  W5 
00  124  *  *  I  1 ,  .1 

IN«P0L1UN<*.  I  I  I 
1)0  l«»S  N *  l  * l  N 

L  4H0L 1 0*1  ( ft  » N ) 

CALL  HOIAKHII OPfc 1 II  ). 11  I 
C  At  L  HOlAh'MI  0PI2IL  1.  1  1  1 
us  civniNui 
124  COM  I  Nut 

hi  torn 

124  00  1 2«>  ft*»  .COININ 
FAIL  HQ  I  ANN (ft, Til 
|2ft  CONI  I  nn 
H(  tllHN 

111  C.0  10  (12**124, ||4|,P44|$ 

00  12  l  Mli  HO  ININ 
CALL  Nl.IMft) 

121  CONI  roll 
H|  I  (IK ft 


ROTATE (IS,  IAXIS ,  PI,  P2,  THE) 


t 
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_ 


_ 


o  o  o  o 


CCCCCCCCCCCCCCCLCCCCCCCCCCCCCCCCCCCLCCCCCCCC.CCCCCCCCCCCCCCCCCCCCCU  T.C< 

ROLL:  USFO  rt  Y  HOT  X ,  ROTY,  Rul/,  AMY  ROTAHR  TO  PE  RF  OHM  A  RtPMIfl 
CALCULATION,  THE  COSINl  AMJ  SINE  OF  Tht  ANGLE  OF  ROTATION. 

CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCLCCCCCCCCCCCCfCCCCCCCCCCLCLCi Cl 
FUNCTION  KOLL (T,s, Ain 
ROLL= I •C0S(AN)»S*SIN(AN) 

RE  TURN 


nnno 


ccccccccccccccctccccccrcccccccccccccccccccccr ct  cccccccccccr.cccu.ru  cc 


botarm:  PtP»nw«s  the  wepeateo  muit.'s  ro  rotate  the  sturiEi' 
tMAGt  AHOUl  an  ARMTHAWT  AXIS 

CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCClCCCCCrCCCCCCCCCCCCCLCCCCCCCCCCCcCLC 

SUHHOO  I  I  Nt  WO  I  AHtMLH',  T  T  ) 

01  MENS  I  OH  T  I  TEVP(<I)  ,  TNtfl('l) 

COMMON  /AAA/  aETU’OT.YE  (WOT.rUUOJ.POlNTN 
COMMON  /FEZ  PCmANG, THETA 
INTEGER  PChA'XGT.'OO  )  .PUI  UN 
IMHCMANC.UK)  .Eh.  I  )  RETURN 
TEMPT  I ) sXE  TCP ) 

TCMP(^)sYtCCrt) 
tempt jji/etlk) 

T  f  mp ( a  >  s  1 .0 

CALC  GPROl  TT  *P,  T  I  ,  T\E*) 

XE<l«)  =  tNCM  T  ) 

Yt  (LR)sTNE  «(<>> 

/£ (C«  »  =  I NE n( T  ) 

PCHANg (C  m ) *  I 
RE  TURN 
ENO 


o  o  o  o 


ccccccccctccccccrcccccrccccccccccur ccccccccccccccccccccccccccccccLcc  cl 

Rutx:  PfcRFOMVb  THE  REPEATED  Mil  URL  l  C  A  T  IONS  TO  WOT  ATE  THE 
SELECTED  IMAGC  AUOUT  THE  <  Axis 

CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCi Tl 
SUHHOUT I Nt  HOT  X  (LW1 

COMMON  /AAA/  *E(l*0).YF(IZO).ZE(l*i>).POININ 

COMMON  /FF/  PCM4NG, THE TA 

INTEGER  PCHANG(^OO) .POINT N 

IF(PCHANC.(LR> .  f  Q  .  n  Pt  T  URN 

YAsYE(lR) 

ZAs/E (LP) 

ZE(LR)sHOLLI/A,ya, The  I  A) 

ZA=-ZA 

YE (LR  ) sROLL (YA.2A, ThE  T  A ) 

PCHANG(L«)=l 

RETURN 

END 
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nnoo 


cccccccccccuccictcccLCCcccLCCci.ee ccciTLrcccrcrcci.ccccc:iTcci.cu  ere  nr 
roty:  pprforms  the  repeated  muu.’S  h>  rotaie  toe  stuetto 

IMAGE  AHOUl  I  HE  r  AXIS 

CCCCCCCCCCCCCCCeCCCLCCCCCCCCCCCCCCCCCCCLCCCLCCCLCCCCCCrLCLCCCCrCClCLC 
SUHHCU.I1  1  Nt  MOT YILR1 

common  /aaa/  aE(I<*o),yF(I«?o),zem.'0),po1nin 
COMMON  /PI /  PCMANG.tMfcTA 
iNttr.CP  PtHANUdOO)  .POINTN 
IF  (PCMANO(LH)  ,E»J.  I  )  RETURN 
X  A  s  X  E (LH) 

7A*ZF (LH) 

ZE ( L R  )  SKULL  (  Z  A  ,  aA,  THETA) 

ZAWA 

XE(LP)*HI)Ll.(XA,ZAf  IIIKUI 
PCHANG (LH ) 5  I 
PC  TURN 
END 


140 


CHANG ( LK 


RETURN 


2E(  LR )  ■ 
ROLL ( 2A , \A 


META' 


PCHANG ( LR ) a  1 


XS(LR). 

ROLLOCA,  : A, THETA) 


nnnn 


ccccccccccrtccccccctccccccccccccrccLCcrcrcrcrcccrcccccccccccccrci'criri 

ROTE:  PERFORMS  H*t  PEPFAtfO  A  Ul  1  .  •  S  til  ROTAIE  1  Mf  Sf.lECTfO 
IMAGE  AROUl  Hit  l  HIS 

ccccccccccctccrcctcc  rcccccccccccrcrcrcccrcrcrcccccccccccccccccccruu  i 

SUBROUTINE  hOT.’U'O 

COMMON  /AAA/  »F  i  l<>0  )  ,  » r  (  I  ,  li  tl  <>0)  .POINTN 
Common  /ff/  poang,  tut  u 
I N  t  E  Gt  »  PCM  AMU  (  <*00  I  «  PO  I  N  t  N 
IE ( PCMANG l CM  I .  F  u . I  I  Pt  TORN 
X A=*r ILK) 

YArVF  UP! 

YE (IP  I =P0LL ( Y A, X  A , THE l A ) 

VAe-Y A 

XE (LP ) sPOLL ( Y A, \ A , ThF I  A  ) 

PCM  ANl>  (  C  P  )  s  l 
RE  tORi'i 
ENP 


onn 


cccccccccccf.ccccccccccccccrcccccccccccccccrcccccci;cccf;ccr.cccccciri.f  l  r 

SCALE:  SCALtS  A  SINGLE  POL  fHl  UPON  OP  THE  ENTILE  )PAOE 

cccccccccccccccrrccccccccccccLr.ccLCcr.LC.ccccccccLCCCCcccccLCrccctrf.ur 

SUHkOU  I  I  Nfc  SC  *'L  t  (  I  f< »  S  ) 

OIMENSION  S(5>,IPi<?) 

COMMON  /AA/P0L YHF ,POL JHN 
COMMON  /AU  /  PULYGN,POLG*,SHA0 
COMMON  /AC  /  FOGt  t ,E  OGtJ.FLir.Lr-. 

COMMON  /AAA/  Ilf  ( t2O),YE(l20J,2E  ( )20),POJNIN 
C()P*iON  /FF/PCHA'lG 

common  /mh/sx,sy,s/ 

INI  I  GLP-  PUL  IHt  (  10,2) ,POl  YGN(*0,  I  I  ) ,  (  Out  I  (  1  00)  t  EDGE  il  (  100) 

*,  POL  YUM,  POL  GN.FOr.EN,  POINT.*,  SC  AL  I  T  ,  SnAD(ort) ,  PCHA../G  t  ?U0 ) 

SX=SI l ) 

SF=S(2) 

Sl~S(i) 

oo  jo  r i = i . pn i n in 

50  PCHANGd  I  )  sO 
JL  =  IMC I  ) 

IFUL.fU.5t  t  GO  10  152 
klsIHI?) 

J  =  Pl<L  »Ht  (*t  ,  2  ) 

1  IsPOLYnE  (  Jl.,  I  1 
00  155  <  s  I  I «  J 

INsPOLiG  JM.lt) 

00  l  5«  Nit.t.w 

L  =  PUt  YGti  (  ,  N  t 
CALL  SCL  (EDGE  1(D) 

CALL  SCL ( LOCf 2 (L ) ) 
fJU  CONTINUE 
I  55  CON  I ?  Nljfc 
Rfc  TUPN 

152  00  I 5S  *=t,POINlN 
CALL  3CLM) 

)5S  CONI  I Nl)t 
WE.1UKN 
END 


144 


r»  o  o  o 


ccccccccccctccccccrcccccctccccciccccci'cccccccircccciccccccccccrcccrcci 

set:  MERFOW^S  Rt  °t  A  1 £0  ^lU.'S  TO  SCALE  THE  StLECfFU  I M  A  f.  t 
IN  TmE  X,  Y ,  A  >iO  l  OiRtCIlUNS 

cccccceccccccccc  clcc  rccceccccLCcrcccccrr.ccccccrccccccLCCCLCCCccLCtri.ct 

SllHROuT  1  Nt  SCL(LR) 

CUMMON  /AAA/  XE  C  l<»0  ) ,  YE  (  t?0) ,  It  (  UO  )  .POIMIN 
COMMON  /Mm/  S«,SY,S^ 

CuMMON  /FEZ  PC M  AM>  #  T  Mfc  T  A 
INTEGER  PCMAM(,(£Ou)  .POl.MTN 
IE  (PCMANUCLR)  .t'O.  t  )  PE  TURN 
XE(LR)axE(LR1 •$* 

YtfL«)sYF(LP) ‘SY 
2E(LK)aiEtL»0»S4 
PCMANG(LP)  =  l 
RETURN 
E  NO 


o  r>  n 


ccccccc'iccccccccccccrcccccciccccr crccurccrfLCCLf rLCirc  rcccccrtcci i ri ri 

THANSL:  1  H  AN:>l  A  T  t  S  a  S l NGL  t  PCLYMFDHON  OK  tMt  fcNllHF  IMAl.J 

ccccccccccrcccccccccrrcicccccccr.ccccrccccrccrcccrcccccrcrcccrrrccLc  t  n. 

SUnHOtJMNt  I  KAMSL  l  IK,  I  ) 
oim»  msiun  T( 5), IM?) 

INttGf.H  POL  Y  Ht  (  I  0,  ?  I ,  POL  YGN ( 6  0 ,  11  )  ,  1  Ot.f  1(10  0  1  ,F  DOL<M  100), 
t  PC  HANG  (  <?0  0  )  ,  PUU*N,  t  IlGtM  r  K  4  i  I  I  ,  P(l  I  N  1  N  ,  PUl  YMN,  SNAOCbO  ) 

COMMON  /AA/POL  Y*'t  .  POL YMN 

COMMON  /Am /PCI.  ygn, pjlgn. shad 

COMMON  /AC/  F  I'Gt  I »  EDOt  2 »  F"OGt  N 

COMMON  /AAA/  <F  l  1<?0  )  ,  YK  (  l«?0)  ,  if  (  IPO  )  ,POIM!N 

COMMON  /F  F  /  M  C  h  A  A  G  ,  |f't  f  A 

COMMON  /Et/lX,lY,17 

T  X  =  I  C  1  ) 

I  Y  =  I  U'  1 
T/  =  t  <  11 

DO  10  r I* 1 .POININ 
10  PC  H  A  Ml.  (  I  I  1  31) 

JL  =  IKM  1  1 

IKJL.fO.il  5  GO  To  10  1 
K  L  s  I M  (  ? ) 

J  =  POl.YHF  (KL  ,P1 
I  I  3 POL  Y iiF  (  JL  ,  I  1 
DO  I  OS  ns l  ,  J 

LN=POL»Gn (* , 1 1 1 
00  106  N  =  |  ,C*1 

L  3 POL  YGN ( h , N ) 

CALL  NF  »  1PT  (FOGt  1(D) 

CALL  NF  X  JPT  (tUGLPll.  1  1 

106  C  ON  T l NUt 
10S  CONI  I NtJE 

Kt  TOWN 

101  00  10/  6  =  1  ,  Pfl  1  N  1  N 
CALL  NtXfPriM 

107  COM  I NOF 
Ht  TUMN 
END 


r*8 


J 


r>  r>  r> 


ccccccccccctcccicta  ccrcrcccccccctccrcccci cccu  cut  ca  tcccccccccccti toe 

NFMPT:  PtPFOH*S  HEPFAUP  OPERATIONS  FOP  TRANSl 

ccccccccctccccn  rcri  rccicccccca.rcccrtcrccrcccctctci  cccccccccccm  olol 

suflKouriNi  .»f. xrpraw) 

INUt'.EW  PtMANt.(^OO)  .Pl'tNtN 

COMMON  /  A  A  A  /  *  t  (  lf?0)»  t  E  (  \  ,’0  ),  It  (  t  «?0  )  >  PO I N  T  N 

COMMON  /ft  /PC.  t*  A  NC>  t  \  HM  A 

common  /Ft/rtt tr.  tz 

IF  (PCHANC.UWI  .tu,  1)  RETURN 

Xt(LN)8*f  (I'O-r* 

>F(LH)sTFllP'-Tr 

?t(HO*iCUK’t-r/ 

PCM A NO ( L P  )  5  t 
PI luPN 
FNO 


cccccccccccccccccccrccccccccrcccccccccrcccccrcrccccccccrcicr.ctcicui 

c 

c  GMPKD:  MUL  t  l  PL  1 1 S  1*0  4  BY  4  MAJRlCfcS  AND  STORES  1  Ht  RESULT 

C  IN  ANOTHER  >4  BY  '4  MATRIX. 

c 

ccccccccccctcccccrcLCLCirrcccccccLccrccccLCCccrcrcccrcrcccccccrccLf c 

SUHROUT  I  fit  G“RRr>(  A,M,R,N,v,L  ) 

S  D I  Mt  Ni  I  ON  A( 4,4),b(4,4),Rl4,U) 

DO  10  K=l,'4 
DO  10  Jsl  .4 
R(K, JIsO.O 
00  10  1  =  1  .0 

10  R(K, J)=R(K, J)  *A(K,  DMlfl.J) 

RETURN 

END 


cccccccccccccccLCccccccLCCcccccccccLCcrccircrccccccccLCcccccccrcciCL 

c 

C  r.PRD:  MUL  1  I  Rl.  Y  S  A  1  BY  4  VFCTOR  TIMES  A  4  .BY  4  MA1RIX  AND 

C  STORES  1  Ht  Rf  SUL  1  In  A  -4  MY  1  VECTOR. 

c 

CCCCCCCCCCCCCLCCCCCtCCCCCCCCCCCCCCrLCCCCCLCCCCCCCCCCrcCtCLCCCCfCCLri 

SUBROUTINE  GR« D(A,H,R) 

DIMENSION  A(4),B(4,4),R(4) 

DO  10  1=1,4 
R  ( I  )  =  0 . 0 
DO  10  Jsl  ,4 

TO  R(l)=Rm*A(J)«0(J,  l) 
re  Turn 
END 


152 


2*  iias  R§noval 


Included  in  this  group  were  the  subroutines  utlized 
to  reaove  hidden  lines  fron  the  wire-fraae  figure  produced 
by  DISPLI.  The  subroutine  REMOVE  initiated  this  procedure 
when  called. 


nnnn 


cccceccccccccccccccccicccicicccc.c(.ci.ccei  rccccc< » rcrirircccccrcrcnci  ci 

WtMuvt:  MAMFR  Sl'dROUttMF  vi  J  C  OnArtS  r  Hf  1 MAGE  ,  AFIfH  KFMptlNC 
AIL  MIODEN  Lints,  UN  T  Ht  St  Lt  C  f  F  l)  OH I  PU  t  PE  V ICt  . 

ccccccrccccLccccrcrcccrcccccrcr.cciccci.ccccccrLCcrcrccccrccccccccfi  ccci 

SUHKOUT JNt  ( 1M) 

COMMON  /AA/HuLYMt  (10,?), PUL  YMN 
0 l Mt  NS  I  ON  IK(?) 

COMMON  /  A *>  / M 0 L  YON  ,  Pi*(_i',N  ,  fit*  At) 

COMMON  /JJ/  OS* , vSY  ,  VC *  ,  VC r 
Common  /On/  Ji) 

iNTtetH  F'uL  t  oO,  11  )  'PULON.'SOAiH  t>0  )  ,PCil  VHE  'POL  VMM 

CALL  HOtCLM 

CALI  SCt-N 

CALL  L INkKV(  |W) 

CALL  INiriA(POLl’.N) 

XA3VSX*?.«0.'100t 
I XX=X* 

ryrvS)  •?.  ♦o.oooi 

1 YY=¥T 

IPPsO 

JPPSO 

CALL  WAPNCMIPP,JMP,lxx,lYO 
JL=IH(  1  ) 

IPsPOL YhF( JL,  I  1 
ISHAI)SSMA0(  IP) 

CALL  DISPLP( ISMAO) 

WRITE(6.n  JO 

1  FOHMA  (  (  1  Y  ,  ’  I  ME  NUMHIK  OF  SH'hACt  LOCA1IONS  NEtlHO  tS=’,lM 
HE  1  URN 
ENP 


o  o  o 


1 


cccccccccccccccLCCCCcLccccrcccccccccccct.c^ccccrccLcccLCCCCcccccccLCLr 

LINKtM;  GtNtRATES  LINKED  LISTS  F  OK  IHt  POLYGONS  ANO  EOGtS 


ccccccccccccrcci.n  ctrcrcccccccccrcccccccccrcccccccrcrccccccccccLCi  a  c 

SUHWOU  T I NE  LINHtM(tH) 

DIMENSION  M<2) 

COMMON  /AA/POLYHE.POLTHN 

COMMON  /»«/  PULYGN.POLGN.SMAO  * 

COMMON  /AAR/  fc  DGE  , E  OGt  m 

COMMON  /  R  A  /  E  OL  1  Na  ,  POLE  UG  .  N't  A  T  E  0 

COMMON  /RM/  PULLNa , POLP  I  H 

iNTtr.tR  polygnioO,  i  i  ),Eor,t  t 2 , <?n m  , e cl  ink<2ooi  .POLtouioin 

&,  POL GN,t Pl.t' M,  PPLPI W,  SHAO(  oO  )  ,POL  YmE  (10,2),  PuL  Ym(„,  POLLNK  (f>0  ) 

DO  51  1=1, POO 
31  EDI.  1  NM  J  )  =  -  | 

POL  P  T  k  =  0 
JL=lRl) ) 

IElJL.EN.il )  GO  10  2000 
KL  = I W ( 2  ) 

JMSPOLYHE ( JL,  1  ) 

KMSPOLYHE (KL ,2) 

GO  TO  2o?0  : 

2000  JMs 1 

KM=POLGN 

2020  DO  200  I=Jw,KM 

POLLNKl T  JrPCLPTR 
POL  P  T  R  = I 
JsPOL  YC.N  (  I  ,11) 

LW=POLYGn( [ , 1 1 
KslFNOEPlLR) 

POLEOGl I )=>\ 

00  201  N 0  =  2 , J 

LH  =  POLYGM  I  ,  NO  ) 

EDI  INK  (k  )  •  IFNPED(LR) 

K  =  EOL  INK (K  ) 

201  CONTINUE 

tOLINMH  )=o 

RsPOLEDGl 1 ) 

JsEDOE (?»«  ) 

JTsCOUE'MK) 

IF  (J.ME.tOUE  (  l  ».IT  )  .AfiP.J.Nt.EObE  (2,J!  )  )  CALI  ISrtAP 
l  (EDGE  (l,R),E0GE(2.M) 

202  IF(K.EU.O)  GO  TO  200 
JstDl INK  (K) 

IF  CJ.NE  .0.  AM).  EDGE  (2»K).NF.f  CGI.  (1  ,  J  )  1  CALL 
l  I SwAP (E  DGE (1,J),E0GE(?,J1) 

K  r  J 

GO  TO  202 
200  CONTINUE 
WE  TURN 
END 


1 57 
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ccccccccccccccctccctccctccccccccrcccccccccccccrcccccccrcccccctcccccL 

IFNDEu:  USFO  BY  LINkF.m  in  FiKj  EMPTY  STORAGE  LOCATIONS  IN 
THt  LIST  USED  TO  L 1  ML  EOGES  Of  F  ACu  POLYGON. 

ccccccccccccccccccctrcccccccccccrcrcccccccccccccccccccccccccccccccrc 

FUNCTION  IFNOLIHV) 

COMMON  /AAO/  LPC.F.FOGtM 

COMMON  /PA/  E OL INK, POLE OG.NE/ TED 

INTEGER  EDGE  (<?#  POO  )  #  EOGEM » t OL  INK  (POO  )  ,  °OLF.  OG  ( t>  0  ) 

IFNUEU=M 

IF(El'LlNK(K).EU.-n  RETURN 
EUGEM=EOGLM* | 

EDGE  ( I  *EDGEW)=EI)GE  ( I  »M) 

EOKF  (2 ,  FOGF  m )  =E  OOE  f  c- ,  M ) 

IFNDEi>  =  EOGE -1 
RETURN 


_ £ 

EDGEM-EDGEM+1 

EDGE (1,EDGEM) -EDGE ( 1,M) 
EDGE ( 2  f EDGEM) «EDGE ( 2  tM ) 
IFNDEDaEDGEM 


RETURN 


rt  n  rt  n  r>  r>  rt 


cccccrcccccLCccccccccccccccccccLCcccccrcruccccccccccccctCLCcrLi  uri  ru  i. 

1 N I  T  I A :  SORTS  iHt  Lists  OF  FUGtS  FOP  EACH  POLYGON  SO  ThAI  1  mL  LM; 
POINI  OF  ONf  tOGL  IS  Cll  I  NCI  OEM  aIIh  TmF  FIRST  POINT  OF  T  ►-t 
NEXT  FOGC  UN  TmE  LIST.  ADDITIONALLY,  EACH  POLYGON  IS  SOnitP 
M 1  I H  ThE  POl  YCUN  CLObFSI  TO  THE  VIEWER  FIRST  ON  iHt  LIST  AND 
THE  NEXT  CLOSEST  SECOND.  ETC. 

tccccccccccccccccccccccccccr.rcccccccccccrcrcrccccccccccccccccccicu'irc 
surroo 1 1 Nt  i n  i  t  i  a  (  pol  ox)  > 

COMMON  /RA/  f  OL  1 NF. ,  POL F OG »  Nf  x  T  E 0 
COMMON  /Re/  POLLf"'  .  POL  °  I  R 

COMMON  /RC/  POLY  A  ( 60  )  ,  ROLYRlfcO)  .POL  YC  (60)  ,  POL  Y  0  ( bO  )  , PULZ*  Mot  i 
COMMON  /  Rl>  /  YP,  YP.?U,  iN,  1U,£\ 

INTEGER  EOL  IN* (200)  .RULEDi.fb"  )  ,  POLL  NK  (  60  )  .  POL  P  T  R  ,  OL  OP 

INTEGtR  P.PdLGN, CHANGE 

OLDPsO 

PiPOLPTR 

207  IF(P.LO.o)  GO  TO  203 
NtXTfl)sPOLfc'uG(P) 

CALL  GfTNExiI) 

X  l  =  xP 

Y  1  =YP 
Z1=ZP 

CALL  OFTNtXlI) 

X  3  =  X  N  -  Y  1 

Y  3  =  YN-Y 1 
7  3 = Z  N  •  Z  I 
X2*xP-x i 
Y2  =  YP-Y  1 
72=ZP-7I 

POLYA  (P)=YW2-y2*73 
POL  YH (P)sx2*Z3-»7«72 
POLYC(P)  =  xX»yP-x2*Y  4 

POL YDlP)=-f POLY  A ( h ) • y l »P0LY6( h ) • Y | «  POL  YC ( P ) *  7  1  ) 

7MIn=o. 

NEXTEO  =  PtU  FUG(P) 

205  CALL  Gt l Nfc X (  I  ) 
lF(I.tO.O)  GO  TC.  200 
IF (ZMJN.GT .ZP)7M1h=/P 
GO  10  20S 

20'l  P0LZX*N(P)  =  7 /iN 

IF (POLYC (P ) .EU.O. )G0  TO  206 
OLDPsP 

20P  P=POLLN» (P  ) 

GO  TO  207 

206  P0LGN=P01UN-I 

IF  ( ULE'P  .  F  O  .  0  )  GO  TO  20<> 

POLLAN (OLOP J SPOLLNK (P I 
GO  TO  20R 

20*>  POLPIWsPOLL  ,F(P) 

GO  10  20* 

203  CHANGE  =0 
OLOPsO 
PsPOLPTK 

21S  IF (P.FG.O)  GO  TO  211 
JaPUlLNMP) 

IF  ( J  .  EO  .  0  .ON  .POL  2T';N  ( P  )  .LF  .POL  ZMN  (  J  )  )  GO  TO  212 
IF  (OLOP.E'Y.O)  Go  to  213 
PULLM (OL0P ) :J 
21*  POLL  N*  (  F  )  splJLLN*  ( *) ) 

PULLNM  J)sp 

CHANGE:  |  — - 


OLOPrJ 
GO  10  215 
215  POLPTKsJ 
GO  10  214 
212  OLOP=P 

P=POLLMk (P) 

GO  TO  215 

211  If (CHANGE. EU.  1  )  GO  TO  205 
RETURN 
END 


[INITIA  (  POLGN ) 


OLDP-O 

P-POLPTR 


POLGN =rOLGN 


P-0 

"noS. 


USING  SUB. 

GETN'-’X  (  ) 

ACQUIRE  3 

NON-LINEAR 

POINTS 

REMOVE  TH IS  POLYGON 
FROM  LIST  BECAUSE  IT 
IS  EDGE  ON  TO  THE 
VIEWPOINT 


P.POLLNK(P) 


COMPUTE  POLYGON  PLANE 
COEFFICIENTS  POLYA(P), 
POLYB(P),  POLYC(P), 
POLYD(P) 


ZMIN-0 

NETXED- 

POLEDG(P) 


ORDER  POLYGONS  IN 
POLLNK ( )  WITH  CLOSEST 
POLYGONS  TO  VIEWER 
LISTED  FIRST 


FIND  CLOSEST  POINT 

OF 

POLYGON  TO  VIEWER, 

IT 

WILL  BE  ONE  OF  THE 

VERTICES 

ZM IN -CLOSEST  ZS() 

VALUE 

POLZMN  (  P  )  -T.MIN 


>VLzm  (  pWa 


OLDP-P 
P -POLLNK ( P 


1 62 


o  o  o  o  o 


ccccccccCLCCccuccrtrrccccr.crcccreccf cct  rcccrccca  ccctctctccrif cri  ci  ri 

GE  TNE  X  :  Gt  T.i  I  HE  I'lOFx  OF  Th*  nl  X  i  M'Cf  FOR  lHF  CURmTNT  POUf.u" 
AND  I  HEN  FIFOS  1 HF  I  »*.  0  F\C  PUlMS  OF  Tm($  t  OOF  TO  iJASS  Tu  the 
CALLING  SUePGUllUf. 

ccccccccccccccccccrtccrcctcccccicccrccrccLCcrcfccLCCcccccu  cccccrcnci. 

SllRKOUT 1NE  GE INI*  l  I  ) 

Common  /aao/  tru.r.Foc.fcM 

COMMON  /AAR/  AS(  l<ff> ) .  Y  SI  .  <??(  120  )  .POINT* 

COMMON  /HA/  flU  INh.POLFOG.NI  *  IEO 
COMMON  /PD/  XP,  VM,  l>‘ ,  X*J,  YN,  /\ 

common  /oc/  j  r  t . j  1 4* 

INTEGER  fOfifc  ( c*  #  <?  0  u  )  ,  F  0  L  INF  <  <*  0  »>  T  .POLE  00  (mi)  »10GE  M POT  NTH 

1  =  0 

IF(NExTEO.Ei).O)  RETURN 
JT 1 =EoGE ( 1 ,  NExTtO) 

X)'i<S(  J  I  I  J 

ypsysi j  r i ) 

ZP=/S( Jl 1 ) 

Jl?  =  f  OC.EU.Mf  <Ttl>) 

XN=  X  S l J I ? ) 

VN=  YS ( J  I  ? ) 

;n=/s(jt?) 

NF.XTEOsEDt.nMNt  *1M>) 

I  =  -t 
he  torn 
End 


cccccccccLCiccccccccccrccccLCcrctcccccr.LciccctTrrcrcccmctcLLicQuuc 

c 

C  HARNCK:  is  ThL  “AIN  SUBROUTINE  WHICH  DE  TFRMINES  c.HTCH  LINES 

C  ARE  HIDDEN. 

c 

ccccccccrcccccccctccccccccccccccccrLfcccriccfcccccccccccccccccccci  CL Cu 

SUBROUTINE  AAHNCK ILEF  f . I  HOT  I , IS t ZEX , ISIZE Y ) 

D  I  HE  NS  I  UN  TSTACMi6,il) 

COMMON  /Ab/ROLYGN#PULGN,  SHAD 
COMMON  /W  A  /  EDI  I  NR  «  HOLE  DC  ,  NL  x  TED 
COMMON  /mi/  POLLN* *  POL P  T R 

COMMON  /RC/  PULYA(oO)  ,PULYR(ei>)  ,POL»C(t>0)  , POLYO(hOT  .POL^MpI'  I 
COMMON  /RO/  XP, YP, 7P, *N, yn, Z\ 

COMMON  /RE /  PULL  SI 
COMMON  /PH/  XX(2),YY(2> 

Cummon  /rg/oe lt  at  ,  alx  ,  hhx.,  miy  ,  ,vi  y 
common  /DO/  Ju 
COMMON  /OC/  JI1.JI? 

INTEGER  EOL  IN*  (200  )  ,POLH'G(oO  ),  POLLS!  (nOT  ,  PUL  LNMoO  ) 

INTEGER  POL  f  ON (oO#  M  )  ,PuLG'  ,POLPTk,P,  I  HE  T  A  ,  uEL  T  A  T  ,  P£ NE  T  , m  i Or  •' 

INTEGER  SURI<NU,SHAO(hO)  .OLPP 

DATA  IS  IPTH,  i:>HAR,rPSILN/0.  1,0.0001/ 

Jl)  =  0 

23R  HLXsLEEI 

size risizt  x 
HRXsfcLXtSlZE-EPSILN 
S 1 ZL  =  1 S 1 7k  Y 
WdY  =  lilOT  T 

WTY=WHY»SIZE-EPSILN 

SURRND=0 

INTFR=0 

ZMINMXSO. 

PsPOl P  TK 

223  IF (P.tQ.O)  GO  TO  2I« 

I F  (  POL  7  M'N  ( P  ) .  (>  T  .  7M 1  \mx  )  GO  10  2I« 

TMET  A  =  0 

NEX  TEL's  POL  FOG  (  P  ) 

221  CALL  GFTNtX(l) 

.  IF(I.EO.O)  GO  TO  2 1  R 
CALL  CL  I P2 ( JR ) 

IF  (JR. E  0.0)  GO  TO  220 
POLLSI  (P  )  =  I NTLR 
I N  T  F  R  s  P 

IHETAs-i 

GU  TO  2  I R 

220  TMFTAsTHFTAtDEL I  AT 
GO  TO  221 
2I<»  CONTINUE 

IF(|AHS(TmE (A).tO.B)  GO  To  222 
PsPOLLNc.  (P) 

GO  TO  22* 

222  POLLSI  (P)s$URI«NO 
SlIRKNDsP 

7  1  *GE  I  7  (P,«LX,iMlY  ) 

72*Gk I  7 (P,wLX,nl Y ) 

Z  3*Gk  T7  (fV'lHY  *  /•  11 Y  ) 

Z«*GE  I  7  ( P ,  wR x  ,  y:  I  Y  ) 

/MINmasamaxi  (Zl,72,7*,7<4) 

PsPULLMk(P) 

GO  10  22 J 
21B  ZMlNlsO. 

ZMIN2S0. 

ZMIN4*0. 


165 


ZMRiqsO. 

ZMAx|=0. 

ZMAA^sO.  V 

?v;axj=o. 

ZMAX4SO. 

MIOt R=0 
PENET=0 

^^7  iKsuwpivo.fo.o)  go  in  ?2't 

I »  sl.E  I  Z  (  SOHRND  ,  .a  X  .  .'<HY  ) 
Zi’=G t  IZ  (  SuMrt'JO,  *1  X  , I  r  > 

Z  JsGE  l  Z  (  SU»r.  NO , X  ,  .xH  1 ) 
ZasGE  f  ZISUIMMO,  ,<Px.,xlY  ) 

IF (Zl .GF ./"INI )  CO  in  ZZS 
IF(/?.GE./VIM<M  GO  10  22S 
IF (Z3.GE ,ZMIM5)  GO  10  2  2 S 
IF (Z4.GE.ZVIN4I  GO  10  ?2S 
Mint  ►y  =  so*j-y^  o 

ZMIN|=Z1 
ZMA  x 1=71 
ZMIN^sZZ 
ZMAX?  =  7<* 

Z  M  l  ix  X  =  7  i 
ZMAX  X  =  Z  X 
ZM1 N4=Z4 
ZMAX  H  a  Z  <4 
PfcNETsO 
GO  10  22b 

225  IF  (  Z  t  .LE  .Z'XAX  I)  Go  If)  J'V 
IF  (ZP.LE.ZniAai?)  GO  10  ?'»? 
IFIZX.LE.ZMAxi)  GO  10  2<‘>2 
IF fZ4.LE.ZMi«<n  GO  10  292 
22b  SORUNOsPOLUST ISoRRND) 

GO  10  221 
292  PENt 1st 

IF  C  Z  I  .L  I  .Z«PJI  IZ'MNlsZJ 
IF (Z  t .GI .Z^AX  t ) x  v A  x  i  a Z  t 
IF  (Z2.1  I  .ZMiNf  )Zvr^iz(J 
IF  (  Z  ?  .  G  T  .  Z  v  A  X  Z  )  Z  ‘  ‘  A  X  Z  *  Z  r1 
I F  (  Z  X .  L  r.ZM»X'i)xwl'i>rZX 
IF  (ZS.G1  .Z«Ax  tm’AX  Ss/X 
•  •  IF  (ZA.LF.Z^IM'lIZV^v/jaZ  * 

IF(Z<I.Gl.ZMAX4)ZwAX4sZ(l 
GO  10  ?2t> 

229  IF(PCNEI.fG.l)  GO  10  22b 
OLOPso 
PsiniER 

2?«<l  IF(P.EM.O)  GO  TO  229 

if  rmoFM.tu.o)  i.o  to  zz** 
Z|sGEIZ(P,xLx..ji'Y) 
Z<>s(.FIZtP.M  <.>•  !>) 

Z  5  =  GE  I  Z  t  p#  xH  « ,  i'«Y  ) 

Z4  sGF  IZ(P.l\W«,fttY  ) 

IF (Zt .It .ZMAXt  t  GO  10  ?X0 
IF(Z?.LE./wAY«m  GO  10  2  SO 
If ( Z  X .1 t . ZM*  x  S )  GO  10  2  SO 
IF  (Z4.lt  ./MAxu)  f,o  10  ,?X<) 
JsPOLlSMP) 

IF  (01  UP. 6 0.0 >00  To  ZXM 
POILSI  (OU'P)s  J 
GO  10  PXt 
ZSO  OlOfsM 

PI  Nil st 

IF  (Z  I  .Gl.ZM.INI  )  GO  10  ?2<\ 


luo 


IF  <Z2.Gfc  GO  10  228 

1F(Z5.GE.*MIN3)  GO  10  228 

•  !M7«.r,t./*lN4)  r.o  ro  22R 

Pfc.NfcT=0  I 

GO  TO  251 
2511  1 N I K  M  =  J 
251  P=PULL$T(P) 

GO  fO  ?2a« 

229  IF ( INTER. fcG.O)  GO  TO  252 

IF(POLLSTdUTER).NE.ft)  GO  TO  228 
Nt  X  I FusPOLEOG  l  INTER) 

255  CALL  GEINlX(t) 

IF(t.tQ.O)  k.0  To  252 
CALL  CL  IP2 ( JR ) 

IF(JR.EO.-t)  CALL  SnOrtll ( >  X ( 1) ,TY( I ) , *X(2) , YY(2) , ISHAD.y ) 
60  TO  255 

228  t  IF  (Pfc.«E  I  .tO.  I  )  00  TO  25-1 
LPsPOLLST ( INTER ) 

IMPOLLST(LP).Nt.J)  Gu  10  25a 
NfcX 1 fcUsPOLEDG (  1 1',  TER) 

IM=0 

2531  CALL  OEINEX(I) 
lFCi.EO.O)  GO  TO  2282 
CALL  CL1P2(JR) 

IF(JR.FO.O)  GO  TO  2551 
1 A  T : I  AT ♦  1 

JJ1=JI 1 
JJ2=JI2 

IF  (JJI  .C.T.JJ2)  CALL  I S  A  AP  ( .1 J  I  >JJ2) 

XT  1 =XX ( | ) 

YT1  sYt ( 1 ) 

X  ?2  =  X  x (2 ) 

YT2=YY (2) 

GO  TO  2551 

2262  IFCI4T.GT.IJ  CO  TO  23a 
I  AT  =0 

NEX  reO  =  POLEOGU.P) 

2532  CALL  GETMtXlI) 

IF(I.EO.O)  GO  TO  2265 
CALL  Cl  IP2TJR) 

IF(JR.EO.O)  GO  TO  2352 
I  A  T  =  1  A  T  «  I 

JK 1 3j  T  I 
JK2=JI2 

IF(JR1 .GT.JK2)  CALL  I  SWAP ( JK I , JK2 ) 

GO  TO  2352 

2285  tFOM.UT.l  )  GO  TO  25a 

IF  (JM.NF..JJI  )  GO  TO  25a 
IF  (JK2.Nfc.JJ2)  GO  Til  25a 
CALL  SHOW  I T (X  I  1 ,  Yl  1  ,Xl2. VT2, 1SMAO.O) 

GO  TO  232 

228  imsIFfcX.GI.n  GO  TO  2281 
fFUSIZl  Y.CT.I )  GO  10  2281 
CALL  SHOW  l  !  (1>L*  ,fcUY  ,fcLX,rfhY  ,  I  SHAD,  1  ) 

GO  10  232 
234  ICCS1SI2TX/2 

lC<*lStZF*-lCL»2 
ICC  *  I S 1 2F  Y /2 
ICVslSI/F Y-ICL‘2 
IF  (  lSUfcx  .1  1.11  GO  TO  3S0 
ISIZt  «/2 

IFCISI/t  Y.F‘u.1  )  GO  10 
_  ISI/fYslSI/f.  y/2 


5? 


Ismx*|SI7Lx»lCX 
00  2  35  is  t.  -4 

ISIPIKs? jTPl„» 1 
ISI*CM  ISTplW.  1  intFI 
1SI»CM  lSTPTP,2)sIli0TT 
1SUCM  I  S  T  H  T  K  ,  J)*lStZtx 
1STACM  ISTPTk.UlsmZFY 
GO  To  1236, 257. 25*. 23S), l 

236  lBUU*lHOTT»ISl/tY 
ISI2EY*I$1ZFY  tier 
GO  TO  235 

237  ISIZEXsiSWF  *-IC* 

LEFT sLfc  F  I  -  I S 1 7t  * 

GO  TO  235 

23*  IS1ZEY* lsiz» r-lCT 

IBuTTslHuTT-lSIZt  Y 

235  CONTINUE 

232  TF (ISIPIP.lt .0)  WfcUiMN 
UFT*lSIAC«(lSTPT«rll 
IH0T1*IST*CMISIPT9,2> 

■SIZE XslSI 4CK ( | oTPTn , i) 
1SI/FTSISI  AIKUSTpT«,4) 
lSTHTMsiSIPIP-1 
GO  TO  Z  S«» 

350  TSIZE»s{SIZtY/2 
IhOT?*(60ITtlSlZf» 
ISI2frs|SJ/tY»Ux 
00  351  I  si,,; 

ISTP1HsJS!PIW»1 

1  $  t  ACM  ISK’W,  i  JiLEFT 
ISTACM IS1P1»,2)*IP0TT 
l3UCMlSH»IR,3)slSIZl< 
ISTACM  !SIPin,«)sISI/f  v 
IS1ZE  Y=|SlZt  Y-U.Y 
IBOTTsTHOT  T-tSUt  t 

351  CONTINUE 
GO  TO  2  52 

360  tlFI=LEF  TM51/F* 
ISl/ExslSI7tx»ICx 
DO  3ftl  1*1,2 
ISTPTHsISIPrw*! 

ISTACM  ISIPIP,  I  )*lh'F  1 
ISTACMIS»PrP,2)*ThOTI 
ISI ACK( ISIPIW, 3 ) * l S l 7 1  x 
IST«CK(ISIP|o,4)slsI2bY 
1SI/F xslSl 7t<-ICX 
LfcFfsttFT-rsUE  x 

361  CONTINUE 
GO  10  232 


INITIALIZE  X-Y  VALUES 
OF  FOUR  WINDOW  CORNERS 
WLX-LEFT  'VBY-IBOTT 

WRX-LEFT+ISIZEX 
“IBCTT+ISIZEY 


:lassifx 


POLLST ( P ) -SIRRND 
SURRND-P 


THETA-0 

nzxted»pcl-:dg(p) 


GETN  :x<l), 


1=0  V^A 


Z1«GETZ(P,WLX,\BY) 
Z2-g-tz(p,';lx,'.:ty) 
Z3=GETZ(P,WRX,W3Y) 
Z4=GETZ( P , WRX  tWTY ) 


zminmx-minimum  of 

(Zl,Z2,Z3fZ4) 


P=POLLNK(P) 


"0 


CLIP2 ( JR ) 


B 


THETA- 
THETA*  DELTAT 


'  BEGIN 
THINKER 


POLLST(P) -INTER 
INTER-P 
THETA— 1 


t?0 


1 


i?: 


5 


[SIZEX  \YEZ 

»1  /“ 


isizey 

»1 


/SHOWIT 

(wlx,wby,v;lx,wby, 

SHAD , 1 )  / 


:stptr 


RETURN 


I=ISTPTR 

L EFT *1 STACK (1,1) 
IBOTT*ISTACK (1,2) 
ISIZEX.ISIZEXd  ,3) 
ISIZEY«ISIZEY(I ,4) 
ISTPTR-ISTPTR+1 


ICX-(ISIZEX)  MODULO  2 
ICY  = ( ISIZEY )  MODULO  2 
ISIZEX-ISIZEX/2 


LEFT-L 

2FT+ISIZEX 

ISIZEX- 

■ISIZEX+ICX 

D  0 
1-1,4 


ISTPTR-I STPTR+1 
JJ=ISTPTR 
I STACK ( JJ , 1 ) “LEFT 
I STACK ( J  J  ,  2  ) =IBOTT 
I STACK (JJ,3)-ISIZSX 
I STACK (JJ,4)-ISIZEY 


WHEN  1=1 : 

I BOTT-IBOTT+ ISIZEY 
ZSY-ISIZEY— ICY 


WHEN  1*3 : 

IS1ZSY-I3IZSY-ICY 

IB0TT-I30TT-ISIZS' 


INITI  \LIZE 
FOUR  CORNER 


o  n  o  o 


CCCCCCCCCCCCCCCCCCCCC.CCCCCCCClCCCCCCCCCLCCCCCCCCCCCCCCCCCCCCCCCCClClCC 

GETZ:  DETERMINES  THE  DEPTn  OF  TriF  SELECTED  POLYGON  AT  ANY  POINT 
ON  The  DISPLAY  SCREEN*  f-E.  the  sreen  COORDINATE  z  value. 

CCCCCCCCCCCCCCCCCCCCCLCCCCCCCCCCCLrcrCCCCCCCCCCCCCCCCLCCCCCCCCCCCCCLCL 
FUNCTION  GE  T  Z  C I Y  ) 

COMMON  /RC/  POLYA (60) , PuLrB(tO) ,POLYC(60) , POL  YD (60) ,POLZMN(t>0) 

GE  TZ=(-POLYA(I ) «X-PULYH( I ) * Y-POLYOfl ) ) /POL YC C  I  ) 

RETURN 

END 
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o  o  o  o  o  r> 


ccccccccrcccrcccccccrcc.cccccrcccrcrcr.crcccrcca‘cccccccccccccccrccu  u  l 

CL1P2:  CLIPS  rwt  SFLFCTEO  FOGY  AGAINST  Tut  CURRtNl  DISPLAY 
WINDOW  IF  IMF.  EDGE  INTERSECTS  Inf  gTNPuw  OH  COMPUTES  TuE 
ANGLE  SUn  T  t  NOE  0  MY  THE  EDGE  WHICH  IS  USED  TO  DETERMINE  lE  Ink 
CUWHENI  POLYGON  SURROUNDS  THIS  WINDOW. 

CCCCCCCCCCCtCCCCCCCCCCrCCCCLCLCCCCrcCCCCCLCCCCCCCCCCCCCCCCCCCCCCCCCLCL 
SUHHOUTJNE  CLIPt’d) 

COMMON  /Rg/  OtL  I  A  I  ,,-.L  A  ,  y.R*  ,  sH  Y  ,  Yl  Y 
CUMMON  /RD/AP,YP,/P,XN,YN#7N 

common  / RH /  Xx(2)»YY(2) 

COMMON  /PI/  ICHM/.J) 

common  /HJ/  IC  (2) ,  IS,  IN 

I  NIL  OEM  DELTAI 

DEL  T  A  I =0 

INS2 

13=1 

XX(I)=XN 
xx (2)  =xp 
YY ( 1  )  =  YN 
YY(2)=YP 

icm  )=jcdoe(xx ( j », yy  n  >,  i ) 

1 C ( 2 ) = JCOUE (X»(2T.YY(2),2) 

257  IC0l=lC(I)Eiri2) 

IF(ICOT.EU.O)  GO  TO  250 
DO  55 

IAAA=iCHK( l , kk  )  ♦ TCmk(2iHK) 

IE(IAAA.E0.2)  go  TO  2S I 
SS  CONTINUE 

IF(ICUS).EU.O)  CALL  1S.yAP(  IS,  IN) 

IF(  l CUM  IS,  1)  .Fu.O)  GO  TO  25  X 
CALL  PUSH ( 0  *  wL  x ) 

GO  TO  2S7 

2SJ  IE(  ICT'K  (  IS, 2)  .c  J.O)  GO  ID  2sa 
CALI  PUSHIOtWHx) 

GO  TO  2S7 

25«  IF(ICMK(IS,U.EU.O)  GO  TO  25S 
CALL  PUSM( I, why) 

GO  TO  2S7 

2S5  CALL  PUSH (  l  ,  v\  T  y  ) 

GO  TO  257 

250  I=-l 
RETURN 

251  I  A  1  £  I  ANGLE f  XN *  YN ) 

I A2= I  ANGLE  (XX(IS),YY(ISJ) 
lAJsl AMGIL(XP,YP) 

I  At  s I *2-1  A  T 
I A2* I  A  J- I A2 
CALL  1 Pt  T ( | A  T  ) 

CALL  IDEM  1*2) 

DF.L  I A  1 1 1 A  l  ♦  l  A2 
I  <0 

RETURN 
F  NO 
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uuuu 


CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCLLLLLLi  ti  uu  ill 

TANGLE:  use  U  t»Y  CLIP?  TO  OF  T  E  RM  I  N£  T  Ht  ANGLE  SUBTENDED  HY  AN  I  OGF 
WHICH  OOtS  NOT  INItRSFCT  ThE  CURRENT  *1N00a. 

CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCLCC 
FUNCTION  UnGLE(X,Y) 

COMMON  /RG/  OtLTAT,wLX,YRX,wHY,.vTY 

INTIGtR  OELTM 

IF(x.Gt.NLX)  GO  Tl)  2Au 

IF(Y.LE.WIY)  GO  TO  281 

I ANGLEsS 

RETURN 

28t  IF( Y.GE.wHY  )  GO  TO  2V 
I ANGLt  sS 
RtTUPN 

282  I ANGLt  su 
RETURN 

280  IF(X.LE.WKX)  GO  TO  ?«3 
IFTY.LE.irtl  Y)  GO  TO  2M 
1 ANGLt  s 1 
RETURN 

28«  IF(Y.GE.WBY)  GO  TO  ?«S 
I ANGLt  =  7 
RETURN 

285  I ANGLt  sO 
RETURN 

283  IF(Y.GT.wIy)  IANGLE=? 

IFTY.LT. w«Y»  I  Af.GLEsfc 
RETURN 

ENO 
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ccccccccccccccccccccrcccccccccccccccrcrcrcrrccrcci ccccrcccccccr  cri.  r  lcc 

c 

C  I UE  r :  USED  rtY  CLIR?  fO  COVHtCT  f  hE  SUtiTENPEO  angle  of  an  ECgK  . 

c 

CCCCCCCCCCCCCCCCCCCCCLCCCCCCCCCLCLfCCCCCCCCCCCrCCCCCCCCCCCCCCLTcaCi a 
SllHHOul  1  Nc  IDEM  I) 

IF  ( 1  AbSl  I)  .LE  .S)  KtlUK'N 
IF(l.GE.O)  GO  1.0  <?oO 
I  a  I  ♦  P 
RETURN 
260  Isl-F 
return 
END 


n  r>  r>  o  r> 


cccccccccccccccccccfcccccLCcr'-rcrCcictCLrcc-crcccrccrccrccccrccrtCvLca 

JCOOE:  10  OEU-MNE  IT  AN  K>\r  pm  ,1  of  AN  FOOL  IS  VISIBLE 

IN  T*E  COrt»c’»l  .n  I  \  ANi.  iP  NOT  flHVUIf  S  INF.  POSITION  IN  I  Ht 
ENl)  ROIMS  ON  T*it  SCRI't'!. 

CCCCCCCCCCCCCCCCCLCCCLClCCCCrCClCLCCCCCCCCrCCCCCCrCLCCCCCLCCCLCl LU uCi 
FUNCTION  JCOOt  U,  i  ,  J) 

COMMON  /Pu/  m  L  1  A  I  ,  ..L  <.  ,>RX  »  ,  .vT  Y 
COMMON  /W  l  / 

integer  pel  tat 

00  <?7o  1  =  1,4 
I CMK ( J , 1 )=0 
?70  CONTINUE 

I ftx.lt. ft lx)  irnK i j, i ( =  i 

IF  (  x  .GT  .i\KX  ) 

IFTY.LT.rtBY)  IChMJ,5)  =  l 
IF(Y.GT.AlY)  IC"MJ,4):| 

JCOOE  =  ICMMJ, I)*lCMl\(J#<Jl«TLwft(J, $  )  ♦  I  CB*  f  J , 4 ) 

RE  TURN 
ENO 


uJCODE  ( X ,  Y ,  J  y 


D  0 

1-1,4 


CCHK  ( J  ,  I )  =0 


X  xWLX 


T^UIC  t  T  11.1 


Y  x  WBY 


o  n  o  o 


ccccccccccccccfcccctcccco;ci.ccccccccccccccrcccccci'Ci.ccccccccccrccLCccc 

PUSH:  USED  BY  CLIP?  Hi  Of  If HV I  ME  I  HE  VISIBLE  PORTION  Of  THIS 
EDGE  IN  ThF  CURRENT  l>  1  SPLAY  MNtK'w. 

CCCCCCCCCCCCCCCCCCCCCCCCCCCCrCCLCCCtCCCCCCCCCCrCCCCCCLCCCCCCCU.  CCi.CC.CL 
SUHROU T  1  Nt  PUSHUA.HT) 

COMMON  /Rh/  X1(?),YY(?) 

COMMON  /PJ/  ICC?)/ IS* IN 
IF ( l A.EO. 1  I  Gu  IC  ?7S 

YY(lS)s(VYUM)-YY(lS))»(M-XY(ISn/(YXafn-KX(IS))*YYtIS) 

XX( IS)=8T 
GO  10  ?7b 

?7S  XX(IS)s(XX(lN)-XX(tSn*lHI-YYlIS))/(YY(IM-YY(ISH*XX(IS) 
YY(lS)sHT 

?7fe  IC(lS)=JCoOtU<(ISl,YY(lS),lS) 

RETURN 

END 
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ccccccccccccccccccccccccrcccrcccctct  ccccccccccrcccccccctccccccccccccc 

c 

C  SHOMT:  STOWES  iHfc  P'AGE  PJ  IHF  APPHO IMF  AWWAYS  POP  DISPLAt 

C  HY  SOBWOUT  Iht  OISPLYJ. 

C 

ccccccccccccccccctccccccccrccccccccccccccccccccccccccccccccccccccciLt' 

SURPOUT  Pit  SHOW  I  T.(  ^  t  f  f  1  i  V?i  I#J) 

COMMON  /PA/  XSS(?000), YSS(^OOO) 

COMMON  /OH/  JO 
JO  =  JO  ♦  1 
XSS(JO)=Xl 
YSS (JO ) i Y 1 
JO= JO  ♦  I 

xss< jo)=xa 

YSSt  JO)=Y<> 

Rt  TURN 
END 


o  r>  r>  r> 


CCCCCCCCCCCLCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCrCCl ClCCCCCiCCCLCCCCCCCCClCL 

OISPLt?  :  ACIUALLY  PRA+S  Tut  P'AGE  .’.Uh  The  HIDDEN  LlNtS  Pt‘*UVU> 
UN  ThE  SELECTED  DEVICE. 

CCCCCCCCCCCCCCCtCCCCCCCCCCCcCCCCrCCCCCCCCCCCCClCCCCCCCCCCCCCCCCCCLrcCi 
SUBROUTINE  i)ISPL?(  1  SHAP  ) 

COMMON  /DA/  X6St?000)  ,YI>3l?00v>) 

COMMO.m  /Pci/  Jl> 

INTEGER  VECTOR, COLOR 
DATA  tPS# ACC/O. uOOl ,POO.O/ 

I=CUl OR  t ISmaD) 

DO  <40U  1  =  1,  JO,? 

11=1+1 
X  I =XSS(  I  ) 
x?  =  XSS ( I  l ) 

Y1=YSS(  l  J/c’.O 

r?=y$si it  j/?.o 

Kl  =  vt C I  OR ( X  I , VI , K?. YJ) 

IF  (K  1  .L  T  .0)  .'(SI  TE  (o,  i) 

«00  CONTINUE 
Rfc  TURN 

\  FORMA  I  (  •  Tc<t‘  FUNCTION  VECTO-i  FAIlEO*) 

END 
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3.  Uidd§n  Suci^Ses 


By  calling  the  subroutine  SURFACE,  this  group  was 
utilized  to  display  the  object  with  its  hidden  surfaces 
removed,  or  tc  display  the  hidden  or  back  surfaces,  as 
deterained  by  the  calling  parameter  ILOOK. 


i 


ccccccccciCLCcccccctccccCLCCCccicLCiccccccccrccicccccLCCcicictccciCL 

c 

C  SuHf*C:  I  S  A  MASUK  SUHKO.il  1  Nt  .s  I C  r*  CALLS  I  Fit 

C  SOMKOUT  JNF.S  ru  IWANSFUP"  OBJECT  COOKOJNATcS  to  SL'kFEN 

C  CuOHOI^A  tt.5  AMO  OISPLAVS  IpF  UHJFC1  rtMH  SOL  1 0  SUhFAftJ,. 

c  Auoi  i  ionai l r ,  surface  ca  i  display  tmf  sumfales  ah i i  »* 

C  AkE  CLOSEST  TO  lot  vlLAlP  OK  IT  CAM  DISPLAY  An  OHJEU’S 

c  hack  surfaces. 

c 

CCCCCCCCCLCLClCCCCCLCLCCCCCLCCCCCCCLCCCC CCCLCCCCLCCLCCCCCCCCCLCLLuLL 
SUBKUOT infe  sonF  AC l 1 SK, | LOOK  ) 

COMMON  /AAp/Fl  r.L  u,  If) i>  >  « f  DGt* 

COMMON  /  AAK/KST 

COMMON  /KA/LMILjT  (  ?  0  0  )  ,  r1  (  «? ,  <?  0 ')  )  .tfi'.LSI 
COMMON  / 1  A /  lACtVt  (OP).  IFtiFLS 

COMA  ON  /  t  0  /  l  YLF  F  T  (bO)  ,  I  YKOnl  (r>0  ) 

COMMON  /TL  /  I  YSI.F  T  (NO  ) .  I  ySKC.  I  (  on  )  ,  Sf  ..F  ST 

common  /  n  / *1  t  f  i  (ou  > .  »k ir.m  (60 ) ,  ;l  f  f  h  ho ) ,  /mi .;p i  < c>o  i 

COMMON  /  TL  /  xSf  f  LF  ,  xSF'nWu,  XWt  SL 
COMMON  /IF  /  |  M  x  C  n  1  »  I H  «  I  Y  ** 

COMA, ON  /\^/  (.  <Llf  I  ,  MxKGmI  ,M/l  t  F  1  ,  •t/Kf.H  T»h;m|n,H/max 
COMMON  /10/S«LEF  t  .SxPi.Hl  f  S/Lt  F  T  ,  S^KOMI 
COMMON  /  t  l  /  IHSEt.  1  .  lost  W,0  I  v.SOl  V.  I  of  OLL  ,  1  S»  OIL 
COMMON  /  T  J  /  :>  F  0  S  A  a*  ,  |A  PLS  I  »  I  'VI  S*,PNK  v  IS 
COMMON  /WPULStU(oO)  .POLOONlbO  ) 

COMMON  /TL/U>Lt»l(<»0),l!AKl.Mt(bA) 

Common  /  r  v />0 a'-f^f.  « ?. aa-l  s  i  ,  s  v>i  \k  1 1  ,>o  > ,  s aa’x  1 1  <n>  i 
Common  /t.,/ i»  pi  f  t  ,  xlsi  s« 

Common  /Tu /  sf.»»c n t  , l s tne  g.  i  * 

COMMON  /Ah/POLYoMbO,  I  I  )  ,  POfiN  ,  SOAP  (  (Su  ) 

COMMON  /JJ/VSx , vSY, v  C  x  .  V  C  1 

01  me  NS  ION  n  fN  IK  (<*<10  ) ,  O/LE  F  l(  no  )  ,  O/MGMT  (  bill  ,Cu*NGE  (oO  ) 
DIMENSION  StC.LSl  (bO)  .  ir.K(e') 

I N 1 F  Ot  K  PLl  YC.N,  KoiCN,  SF'AP,  St  Cl  S  r  ,  POISE  0  ,  CMANtit  »  L  MO  ,  SEo,  sFu  I 
INILGE  P  E  Ol>L  .  (  MIST. SI  OF  S  I  .SAMFMf  ,  P  I  p  ,  P ,  P I  ,  POLCtiC. ,  PPL  l  >’t. 

inti  cep  pu immlomst  , s»  u.s am  sf i.cnt , se gat  i  , se .;lp. sf.godt  , san-l \k 

INTF.C.IP  SAA'F'S  I  *  SAMI.ST  ,  SAMPLE  , LUKStC..PKE  y  I  S,S*mx 
OATA  MAxStC. »  APS/bo. U.UOlM/iSAoFol/O/ 

CALL  KOyCLP 
CALL  LL1P 
CALL  SC  WN 
CALL  lNIIt'1  I SK  I 
I Y»ES=^.0*VSY* APS 
CALL  SMO'V  |N(  lYttl  S) 

00  101  1*1.  l  YkE S 
101  I Y  E  N  T  K (  |  )  s  o 

XNFSL  A/’.O'VS* 

IxPtS=XPf SI  *  AF s 
MM*A,  AXSE  0-  l 
I  Ad  VI  (MAXSFC)*0 
00  51  1  *  I  ,  A  M 
51  lACIVt  T  I  )  *  I  *  I 
MM=MA*SIG*P 
SAMI N* (aa  )  : 0 
MHrA.M-1 
00  5«i  I  :  I  *m\. 

54  5  AMl.NN  (  |  )  *  1  *  I 

1 F  »♦  LSr  l 
SAME  PL  * 1 
1  MPLS  I *0 
IMPLS/'sd 
SE  C.FSlsO 
P|M«jtU(lL.5l 


Sb  IMPlfc.LO.O)  GO  10  SS 
9f  Xl  *1 MICbl (PIP) 

1*PU  ,P1H) 

IK  (  I .Nf  , 0 . A  50 . SWAU  (  l  1  .  Nt  .  1  CO  10  SI 
i5P»?.ni,j 

IM  I  ,.«F.  .0.  A  <P.SKAO(  1  )  .Kt  .0)  r-0  1(1  SI 
PIPsNt  X 1 
CO  10  *>b 

J«tnct< i.pip) 

K*tOGt(^,KtN) 

i» (is(J).li  .ish n  co  io  s* 

CALL  1  !>.<*•' ( lOCK  U,P1H>,t00r.(^,tM«n 

JtK 

S8  IsYSI  J  )  ♦  O.Q40«|Q 

l  F  (  I  .Li  .1  .  QP .  I  .  0 1 . 1  Y  Ml  S  )  (.0  1u  10U 
INUSI  (PlK)*l  r(MP(  l  ) 

!rtMP(  I  )  =  F>  H 
PIRsNtX I 
CO  10  *>f> 

Sb  00  *>P  \  *  =  l  .  It  Of  S 

r  z  |  r 

Pol  Cm.*  - 1 
StG*StCK 51 

64  IK  (Sf  0.1.0. 0)  (.0  10  bO 

XL  t  K  I  (SM.)XXLI  K  1  (viKi.)  *0*U  F  I  (Sfli) 
>MU,hI  H>(  0 1 1 « >.  I  ck*  I  (  SF  o  1  itHd.Ml  (51  1. 1 
/Lt»  I  (StCjs^LF  F  I  (She  I  ♦f'/ltl  KSFaO 
/P  IcM  I  (  sf  »> )  */0  ( «»M  I  (  >i  0  )  t  f'/PCM  I  (  SF  0  1 
1 t 1  sf  rLtM  loti.)  ♦  1 
1 1?s  I  lPon  I  (  Gf o  1  M 
I  ILL!  I  (!>UU|t  I 
I  IRON  I ( 5K  0 ) *  I  t<> 

IK  (It  I  .Nk  .0.  AND.  1  l^.Mt  .0  )  (.0  10  bl 

PlRsPOLGC  ((.'•(  1 

IK  (F‘ IK. I  0.0  I  Of’  TO  o i 

IF (LMANot  (PI* ( ,„h  .0)  00  10  HI 

CMAisCK.  <P  I  t<>  aPv'L  C  HO 

POL  L  HO *P  1 0 

CO  10  61 

hi  CALL  P*xSl<USK  r,J 

CALL  PI  IHI.MSLG) 

61  SEC.*  I  xSPC  1(5(01 

SO  10  64 

60  Pi»*iTKti.um 

65  II  (PlH. to. A)  LOI  10  «.t> 

l vvi  *i  rx.K  (i  ,p ip) 

Ivv»,*j  ouk  (i»,pim 

IlKoSI  *tsn  vvi  1 

ITLASIsiSI  1  VVt’1 

I  Of Lts| If  151-1  I L  A  5  I 

RL  AL l>t  *  1  S  (  lvV»’  )-T5<  JVVl  ) 

IK  I  10U.  1  .  uk  .0  )  (.1)  U)  *»> 

X  SLOP l *(»S( IVVPI-ASl I  VVI II /Wf ALOt 
XK I  NS  I **M I  VV  II ♦XSLDPl •(l-tS(Ivvi)) 
f  SLOP  |  r(.*S(  I  VV,»l-iS(  I  VVI  I)  /NMLl't 
?K  IPS  I  *  iS(  I  v  v  I  )  *  1 5LUPK.  •  1 1  -t  :>  ( 1  y  v  l  ) ) 

no  »p  I s | ,i 

P|*K’(  I  ,PIP) 

IK (PI .fcu.O)  CO  10  bP 
IK  (CMAW.K  (Pll  .Nf  .01  CO  10  1.4 
CHAbUl  (0|  *  tPOLCOC 

roumitpi 

69  Stl»»SK.  CCS  1 1 P  I  ) 


l  '3 


PHf  Y  I  s*o 

71  IFISEu.LQ.O)  GO  TO  70 

I  Ik  HO 

IT  (  (XF  IhRT  .L  1  .*lk  F  T  (  Sf  GM  .OH.  ( (  XF  IHSI  ?E(I.XltF  I  (SFGl  1  .  AGO. 

I  (XSCUPf  .U  .iMLEt  1  (Str.lll  )  IIH:k 

Ilf  «>S0 

I F  «  L*F  IhM  .1  r.XHK.Ml  (Ml.)  )  ,OW.  f  (  XF  1  i  S  I  .to.*  HUM  (SF  i,  1  1  .AM' 
I  USLL1PF  ,U  .Oxhr.hKStO)  )  n  Ill's*** 

IY  I  so 

I F  (  IVLEE  T  IStC  )  .1  t.0)|i|s<? 

I  Y ?*0 

JF(  1  YNOHT  (SMiJ  .L  I  .0  )  ll<?s  1 
11*1  tl  I  •  I  It  <*♦.  Y  I  ♦  I  Y  £  ♦  l 

00  10  (  S,  4,  S,;  ,  J,  70, L,  ».*.  1.  L.  70.  7<>,  l,  10,  70,  701.  I  I 
1  PHI  V  I  S  =  Gt  l. 

SfcGsPOl  SI  0<  Gf  •»  ) 

00  10  71 

70  SI  GIsIftltlLM  I  M 

If  (ok  01  ,t  0.0  )  (.0  10  lo>1 
POL  OP'I  (  SF  0 1  >  =**.’ 

XLFf  1  (  5 1 0  l  1  s  » F  ,  l«  G  I 
OxUF  I  (gEOI  )  i  *‘ LOPE 
/LfcF  t (StGI  )*7f  lust 
0<!LtF  I  (SFol  )=/  ?L')PF 
IYLLF  I  (Sf  ol)*l  HI  Y 
call  POI  Xol  I  St  Ml 
IF (PPtVtS.FU.Ol  GO  10  7  $ 
pol st  u(PHt v i s ) *;  f  oi 
GO  10  7a 

7J  StGLSI  (PI  )»Stf-l 

7 a  POISE o(Sf  01  USE  1 

GO  10  t>* 

7?  StGIslGlHLMIH) 

If  (  Sk  o  I  ,E  0 . 0  1  Go  1  0  I  Ml 
PuLoP  4 (GEO  I )sp | 

XLt  F  I  (SkUl  :s»Lf f  '(StGI 
OxLtr  I  (GEO  I  )  -t> * L  \  1  (  St G  ) 
m 1  1  (SI Gl IsiLFF  N  SLG) 

PILLF  I  (SEGI  )  *0/Lk  k  USM-I 
lYUtf  I  (SkOI  I  *  l  Y  L  t  *  1  (StO) 
lrl tF ( (SFO)so 
XHII.fll  (SFGI  1:0'  |H 
PxKOMl (St  01 IsxRLOPl 
7H1L.MT  (SI  oi  l*il  1 WG  I 
O/HoM I ( GE  0  I I*/ SLOP* 
lYHOMl (SEOI JslPktY 
CALL  PIJI  xsl  (Str.l  ) 

IF  (PHtVlS.kU.Ul  GO  Ml 
I’OL  SI  0 1  PHt  V  1  S  1  sRk  o  I 
Gii  lo  6u*> 

60*  SkGLSt (PI )*SEG| 

60«»  PlH  Sf  GISkGI  IsGFo 

PHF  V  I GsSFGI 
6H  COM  I. sol 

1X7  PlHsfNlLStlPlMf 

GO  Id  vi 

«»J  PPtVISsSkG 

Sf  OsPOtr.tMSlG) 

GO  Id  7  it 

66  IF  (POLCKG.I  1.-I1  GO  TO  f> 

P  I  sPOtCOG 
fMlLLMO*Ciiii‘.i*l  (PM 
I  *  CHANGE  (PM  *0 


t 


Phf  *  I s * « 

str.»stCLSi  1^1 ) 

It  If ( it  C.tO.O )  GO  Id  oft 

iTUHltf  t(itu) 

I  X?»  I  >000  !  (  b(  G) 

If  (lY|.LI.O.AM>.IX.,.U.l>>  GO  10  '»* 

if go  mi  yt 

1F<  IVI.M.O.Oh.  |Y<\gF  .0)  G(1  n  IX 
lYLtFlIil  g)«I»'  i.mI  CSCg)  } 

HUGH  I  (if  G  >*o 
XLt  f  t  (Sr  f. i « mir.oi  (St  (• ) 

(Hit  f  I  (St  G)  S»\P0H  I  ( ifG ) 

7Lt  t  1  ( SM. ) x/P loot  l  St  U ) 

0/l  i  f  I «  on. )  *r>/NGMi  (  if  i 

no  lo  fii 

7  7  l*POti>f  GIStG) 

If  (f'Hl  V  I  S.t  U.U >  GO  (o  M 
POCSf G(ffcVIS)*l 
r.u  (o  t*o 

7 9  St  GLSI  O’  I  I  * l 

AO  CALL  (  Sf.'i  > 

CAIL  HtlOLMStG) 

StG*t 

GO  >0  7i> 

70  Nf  *  I  *HOLSt(i(SfcU) 

If  (NFxt  .to.ut  GO  10  no 
I F  (  1  Ylt.F  f  if  t  x  I  I.Gt.O*  00  III  **1 
l  YHGMl  (it  i. )  «  | »  Ltf  1  (f.t  x  I  ) 

I  ILtF  1  (Nf  x  t) *0 

KW  I  (»H  I  (  it  G  >  3  XLf  f  U  At  X  I) 

OXHGM  I  (  it  1. 1  *D  xLt  f  I  <  M  i  7  I 
/h  I  G»<  I  (  it  lils-'LM  H».tO  I 
D/KGti  I  (  at  Om  /LtF  I  (  Nfc  «  I  ) 

GO  Mi  'ft 

A!  if  ( i  Vhf.hr  (ft »  n  .lit.d)  go  o'  «<* 

IXftGUl  (  it  G )  *  1  X  ft  OH  I  i  Jf  i  I  ) 

I  Y  HGh I ( if \1  ) *0 

I  GM  |(ifit)*XHl  (>!<  I  ( iilt  x  T  ) 

PlftGM  (it  G  UIUM.H  I  (Gt  X  I  ) 

/HIGH!  (  St  Gl  s/K  IGH  I  (■'it.  X  I  I 
P/WGMl  (  if  01  nu«G"l  (Mil) 

GO  Id  7»i 

02  HOI  St  Gl  it  <;>  **»UL$l  l.  (Ivt  x  I  ) 

CALL  KMxSUf (Nl *  I  ) 

CALL  Ht  I  MLH  ( fit  X  I  1 
GU  10  7 o 
7S  CMG*  0 

5t.u*$t  r.t  si 

04  If (if G.tO.O)  GO  10  HJ 

I  a  |  x.SuT.  1  (  it  i. ) 

If  (  I  ,  t  0  .  (•  I  GO  ?0  X  \ 

It  I  * 1 1 F I (ofG).Lt.'LtF l( I ) )  GO  10  AS 
ttlG«  I 

0  »  I  *  SL  F  I  I  if  0  ) 

IF  <  a  ,Nt  .  0  I  I XSHGl (A  )»  l 
I ASlf I (  I)  ts 

i*sir i ( it  o )  3 1 
0*  i  a  s**i;  1 1 1 ) 

It  (A  .Ixt  .  0  I  I  «  SL  f  1  (  a  '  *  it  0 
I  xSHC.  I  (  it  i. )  ■  a 
I  x$KG1  (  I  )  *StG 

If  (  it  I,*  il  .f  G.it  G)  St  OF  SI  *  l 
Gn  111  Am 


|  Oft 


85  SlG=USRGl  (  S F. C > 

GO  10 

81  If  (  LMC.  I  G. ) )Gu  10  7*3 

St  G  At  I  s  y 
S£GCNt  *0 

87  IF  (  |A*Pli>t  .f  0.0)  CO  10  *6 
JelwPLSI 

lKPlSt*H.»MUT(J) 

C.AIL  MEItfLMJ) 

GO  tO  8/ 

89  XSPNBi.skhi  SL 
Go  10  9y 

88  Xi>PNRus*t  :»tup 
GO  10  <>o 

86  I  mpl  S  t  3  I  N'PL  SP 
IMPLSP=U 
C0Wa£O*btoFST 
XSPu«G*l'.0 
SAM*M.t».S»vF:>T 
SAMcSt  *0 

*LS  ll'l's  0.0 

98  XSPMf  =a?»  k  «G»  t  .0 

If  (*SPm.f  .Lt  .  XLMUO)  GO  TO  PH 
If  (•>» ’H'Lf  .1  0.0)  GO  tO  80 
XSPN»G  =  .SA.'**  (  S  A  p  P  L  t  ) 

IkaSAMPLF 

SAMPl  t  =  i>A'-'Lf-»  (  I  *  ) 

SAM(.Nr  (  I  »  1  !bl>  f  Hfc 
S  AMt  Hi.  =  l  « 

XL  S I UO*  *  SP'I* 0 

90  IMPtFlsu 

91  lf*XLNI*0 
SEGOOtsO  J 
PRtVlS=0 
St  GsS) Gac  t 

9p  IMStG.tO.O)  GO  TO  90 

N£x)  =  JAt  T  v  t  (S»  G) 

XXXSXSPf.HG*  I  .  v 

IF  (XPK'.n?  tSCC.I.Gl  .xxx  )  GO  to  hs 
IF  (PRtVKs.ro.  oi  GO  lu  9  6 
lAltVE  (Put  VlSJs'.EXt 
97  lACfVt (StG)=StGOUt 

IF (SFGOot  .f 0.0)  StGLOsStG 
StGl.Ot  *S(  G 

IF  (XRIGM  (StG)  .GE.XSPUU  )  GO  (0  ( 800 , 80  I  )  ,  1 1  i'UK 

800  CALL  l  CuM  «U5>tr. ) 

GO  10  OOP 

801  CALL  100*8  I  I  St  G) 

80P  SIGsNtXl 

GO  to  «V 

96  St GAC I su( x I 

GO  TO  •»/ 

9S  If  (XLtF  I  (OtG)  .Lt  .XSPNHG)  ul)  to  (AOj.MOU),  IlOPH 

80  J  CALL  LOUMH(SCG) 

GO  10  «oS 

809  CALL  IOoakHSLG) 

80S  PHI  VI  5**01  U 

SLG*f:t  X  1 
GO  III  op 

9<i  IF  (LUHSt  (>,tu.u)  GO  10  ton 

StG»CUHS(  .. 

IF  (UM  I  iSM.I.r,  t.xSFMRC)  GO  10  I  08 

coPSf  us  1 *  :,hu  t  iniH.sr  i. ) 


•I 


If  (WOLCONlSC  G>  .NF  .0)  GO  Tu  49 
IFULfcF  NStUl.Ll.l.ul  C-U  It  ftOO 
If  <  *Ll.F  I  <M  t.l  .Cl  .  iKLSL  1  Ml  III  6  0 <1 
IWUs*MLSt«.<SFu)/  loOOO 
IFCIPu.Nf  .LSTSF C)  CO  10  600 
I MPL  f r *SF« 

CO  HI  04 

600  CALL  PMX5HUSFC) 

CALL  WtlHLMStG) 

CO  10  «l 

90  umuti  i  (Ste.) » I  .o 

if  . ■  k t <»►» i  csfon  co  in  94 

XSSK&PixKK*  I  .0 

if  c«wk;i»i  (str.).CF.xss)  co  to  ooi 

I  AC  I  Vf  (SI  i.)*  St  Mill  I 

If  (Sf  V.OXI  I  .  F.  G  .  0  1  St  CL  Os  SI  I. 

StCCWl Site 

60?  CO  lu  (  A  On,  f*OT  )  ,  ILiJlli 

•  06  CALL  LoOnf.n  |  Sf  x.  1 

00  Tu  *4 

•  Of  CALL  Ll'tIMfl  (St  0) 

GU  I U  94 

601  |ALlxF(Str.)*Sfi.AL  I 
Stf.ACIsSCC 

CO  lo  60? 

10S  CALL  1rtlN*w< 1 IW.SCG1 

CO  »0  t«.0  S.  I  fell)  .  119 
IF  (StcOOl  .tu.01  CO  111  6 U 4 
I  A C  I  V I  (  i»t  CLU  1  *StC  AC  I 
Sf  gac  i  si.ti.oui 
609  llull 

I SSWC i a  xSPflWO 

If ( I .L I . issue  1  I  CU  I o  60S 

I  S  (  x  S.  NL  K  ♦  xSPNWC  I  /?. 

60S  X$P\Wt.*l 

GO  10  4 | 


60 s  ir  tiMPL*  I  .to.o>  co  io  uo» 

CALL  K*XSW  1  (  |  «'PLf  I  1 
CALL  Wt  H»L1  U'lPLf  l  I 
606  lFMSPNWG.LT.XWfSL  1  CO  10  9S 

If (SAMLSI .to. 01  CO  TO  6|0 
SAMLNMSAKLST  )*0 


CO  111  6  1  1 

610 

SAfsF  31  so 

61  I 

CALL  SMU.x 

S9 

COS! l Nut 

Rt  IllWN 

100 

*W| If (6, t?|  ) 

l?l 

FUWMA1 ( 'fKWUW: 
Hf TOWN 

no 

wWl  If.  16,  1  II  > 

in 

f  ow*a 1 ( • t : 
Hi 1  OWN 

(60 

6Kl  If.  16,944) 

994 

FUK^AI (?X, ' CM| 

Al  I'll  ’  .  /?X,  ’  Hit 
Mf  1  OWN 

tun 

lut  If  C  00  WO  l  N  A  It.  I:,  Off  lot  SCWM.fi.  • 


Nf XlsO*  ) 

ixli'UitR  Of  Sfl>fMS  Ct  Nf  w  A  t  f  0  fOW  I  •<  l 
SIONAf.f  PWuVlCtO.*) 


19? 


I 


) 


S  SCAM 


CONVERT  OBJECT  COORD IN AT 
TO  SCREEN  COORDINATES 


ORDER  ACTIVE  LIST  OF 
SEGMENTS  BY  INCREASING 
X  V.aLUE  of  the  left 
ENDPOINT  ( 


ZERO  ARRAY  I YFNTR ( ) ,  LINK 
AR  LAYS  INACTIVE ( )  AND 
SAMLNK  ON  THEMSELVES 


S EGC NT »S EG  \OT  =  0 

AND  REMOVE  ALL  EXITING 

IMPLIED  EDGES  / 


EXAMINE  EDGE-  AND 
DETERMINE  SCAN  LINE  EACH 
ENTERS  THE  DISPLAY.  STORE 
THIS  INFO.  IN  IYENTR ( ) 
ENTLST ( ) 


IY  IS  THE  SCAN  LINE 


INITIALIZE  JOINTS  and  \ 
VALUE  OF  FI'V'T  SPAN 
( XSPNRG )  TO  ZERO.  USING 
PR  ’.VIS  SCAN  LINES  SAMPLE 
POINTS  DIVIDE  SCAN  LINE^Y 
INTO  SPANS.  f77\ 


PUT  ALL  S 
INTERSECT 
T  0  !  I STS 


TS  WHICH 
SPAN  INTO 
OUT  AND  Z'" 


UPDATE  SEGMENT  ENDPOINTS 
USING  SLOPES  OF  THE  X  &  Z 
2-D  LINE  EQN.’S  AND  MARK 
THE  POLYGON  OF  AN  EXIPING 
SEGMENT  AS  CHANGING  FOR*-A 
~'MSNTS  (  5 


COMPUTE  SLOPES  OF  THE  X  R 
Z  2-D  LINES  AND  THE  INTER¬ 
SECTION  OF  ALL  ENT  :RINC 
EDGES  WITH  SCAN  LINE  IY  /V 


PLACE  EACH  ENTERING  EDGE 
INTO  THE  PROPER  LOCATION 
OF  THE  TWO  POL'  GCNS 

ISTS  (  7 


I  KVWuPIvM 


REMOVE  ALL  EXITING  EDG 
FROM  POLY’G'  NAL  SEGMENT 
LISTS.  AND  CONSOLIDATE 


HAVE  LOOKER  OR  LOOKR1 
EXAMINE  ALL  S  iGMENTS  IN 
THESE  TWO  LISTS  TO 
DETERMINE  30 X  COUNT 

—  ’PR 


HAVE  THINKER  Di 
IF  THE  CONTENTS  OF  THIS 
SPAN  CAN  BE  DISPLAYED^ 


JSUCCSS 

/XSPNRG=\l 

xreslX^ 


IY-IY+1 


SHOW 

SC  nN 

LINE 

IY 

IY-IYRE 


RDYCLP 

JLIP 

3CRN 


iyr.;s-2*vsy 

IXRESL-XRESL 


IFRELS-l 
3AMFRE-1 
IMPLST-0 
IMPL32-0 
3  EG  F  JT  »0 
PTR-EDGLST 


IACTI VE( !)■!+! 


>1»MAXSEG* 2  MN»M-1 
j.  vMLNK  (  )-0 


AMLNK ( I ) 
1+1 


CHANGE  ( PTR ) 
POLCHG 

POLCHG-PTR  ' 


201 


pi=p(i,ptr)L_I  i=i+i 


o 


^■YLZFT  XJ 
(SEG)  CL 


^YRGHT 

.(SEG) 


I Y 1  =  2 


IY1  =  1 


CHANGE ( PI ) ; 

POLCHG 

POLCHG=PI 


I I=ITEl+ITE2+IYl 
+  IY2  +  1  i 


y'-'-  ^  =N\ 

\  13  /  *  y 


3EG=SEGLST( PI) 
PREVIS=0 


PREVIS=SEG 

SEG=P0L3EG 

(SEG) 


INSERT  NEW 
SEGMENT  IN 
FRONT  OF 
SEG  /CX 


ITE1=0  ITE2=0 

IY1=0  IY2=0 

XL=XLEFT (SEG) 
XR=XRIGHT ( SEG ) 
DXL=DXLEFT( SEG) 
DXR=DXRGHT( SEG) 


PTR=ENTLST 
( PTR ) 


XFIRST  *<XL> 
OR 

;XFIRST=XL^AN 
XSLOSJ> 


ITE1=8 


ITE1=4 


INSERT  NEW  SEGMENT 
BETWEEN  XLEFT ( SEG ) 
AND  XRIGHT  (  SEG ) 


SEG1- 

IGTBLK(IR) 


POLGON ( SEG1 ) -PI 
XLEFT( 3EG1) -XFIR5T 
DXLEFT ( SEG1 ) -XSLOPE 
ZLEFT ( SEG1 ) -ZFIRST 
PZLEFT ( 3EG1 ) -ZSLOPE 

iyleft(s,:gi)-idzly 


PUTXST ( SEG  l ) 


PREVU 


SEGLST(PI) 

SSG1 


POLS KG 

(PRKVIS)-SEGl 


POLSZG(SEGl) 

-SEG 


POLGON (SKG1) -PI 
XL  EFT  (  SEG1 )  -XL FT  (  S  :G  ) 
DXLEFT ( S  EG 1 ) -DXLEFT (SEG ) 
ZLEFT ( S SGI ) -ZLEFT ( SEG ) 
DZLE  FT ( S  EG 1 ) =  DZL  S FT ( S EG ) 
IYLEFT ( SSG1 ) -IYLEFT ( SEG ) 
IYLEFT (SEG) -0 
XRIGHT ( 5EG1 ) -XFIRST 
DXRGHT(SSGl)  -XSLOI'E 
ZRIGHT(SEG1)«.,.FI  RST 
DZRGHT ( SEG1 ) »ZS! OPE 
IYRGHT ( SEG1 ) - 1 DELY 


PUTXST 


( S  EG 1 ) 


PR'  VI: 

V  -0 


SEGLST (PI ) 
-SEGl 


pr::vis«0 


YES 


PI-POLCHG 
POLCHG-CHhNGE(PI) 
CHANGE (PI ) -0 
j  PREVIS-0 
SEG-SSGLST(PI ) 


NO 


G EijLS  I'U'I) 

-I 


IYl-IYLEFT(SEG) 

IY2-IYRGHT(SEG) 


POLS  E 

(  pr  :v 

J 

-S  )  ol 

c _ 

RMXSRT ( GEG ) 
R5TBLK ( GEG ) 

PREV1S 
SEG-POLSEG(SEG) 


NEXT-POLS  EG (SEG) 


I Y  L  G  FT ( G  EG ) - 1 Y  RGHT (  G  EG  ) 

I YRGHT ( GEG ) *0 

KLSFT (  SEG )  ■XRIGHT (SEG ) 

DXLSFT ( 3 EG) «DX RIGHT ( GEG 

ZLSFT(SZG)-ZRIGHT(GEG) 

DZL  EFT ( S  EG ) -DZRGHT ( G  EG ) 


O 


IYKGHT( SEG ) *IYl  EFT  IN  \T) 
IYLEFT  (  next  )  *0 
\right(geg)-\i.::ft(n  at) 

D\RGHT( SEG ) »DXLEFT ( N  EXT ) 
ZRIGHT ( SEG ) »ZLEFT ( NEXT ) 
DZRGHT ( GEG  )  »D.'L  ' FT ( N  AT) 


XSPNRG= 

XLSTUD 

XSPNRG 

XRESL 

m 

SAMPLE. 


XSPNRG-5AMX( SAMPLE) 

IX-SAMPLE 

SAMPLEaSAMLNK(IX) 

SAMLNK ( IX ) aSAMFRS 

SAMFRE=IX 

XLSIUD-XSPNRG 

IMPLFT-0 


IBXCNT-0 

SEGOUT-0 

PREVIS-0 


20? 


- - 3 

SEG-5EGAGT 

2 

-*c^EG- 

YES/ 13 

NEXT-IACTIVE(SSG) 

XXX-XSPNRG+1 


RIGHT  (  l'EG  ) 
w  *«  XXX  > 


PR  ■:VISXSYES.I  SEGACT, 
1  NEXT 


:ACTIVE(PREVIi) 

-NEXT 


IACTVE ( SEG)  i 
SEGOUT 


SEGOUT. 


SEGOUT-3EG 


SEGLO 

-SEG 


LEFT  US  EG)  L°0^-R 
s*  OR 

S  P  N  RG LOOKR1 


’RSVIS-SEG 
!  EG -NEXT 


.XRIGHT(SEG)  L0CKSR(GEG) 

V  .  OR 

'XSPNLF  S  NO"  LCOKRl(SEG) 


SEG-NEXT 


2C 


nnnnn 


cccccLCCccccciciCLCCcccccucctrcrtccccccctc(.ccccccc(.ci.ctcr.ccccrtcu4. 

INI  t  P :  LINKS  iHt  LISI  OF  LUGES  IN  T*F  AwWAY  ENfLSKl)  »nO 
SIOhEj  IHt  I  Not  A  Oc  TnK  POLYGONS  /ihICh  have  EUGt  I 
AS  a  llOUNURr  IN  I  HE  AkPAY  M  ( <?  ,  I  )  . 

CCCCCCCCCCCCCCCLCCCLCLCCCCCCCCCCCCr.LCCCCCrCCCCCCCCCLCCCLCCCCCtCLCU  L 
SUHKGUTtNt  i>liri(I4) 

DIMENSION  M(/) 

COMMON  /AA /  POLIHt ( 10, ?) ,P0L TMN 

Common  /a»/  pulyg^i  *»o  ,  1 1 ) ,  out  on,  smao  ( &o ) 

Common  /aa,>/  t  DGE  (  ?.  ?0f*  )  ,  EDGE  « 

Common  /AAN/  *si  l«»0  ) ,  1  S(  I  <f0  ) , /S(  U’d  )  .POINT* 

COMMON  /•U/LMlLSl(?UO),f*(c’,^('d)  ,  f uGLSl 
COMMON  /ft  /tO»«CoG(PuO) 

INUGeP  EU'.k  ,fclH.EN.Pi)LYGN,PULGN,  PI)  IN  I m,  Shad,  e  n  I  LSI  .P.fcOUl  S  I  , 
fcPOLYht  •  POL  Y  MN » f  OO.lMC. 

00  Jo  I  =  t . f  on em 
JO  EOf.CMGd  )S0 
tOGLSl =0 
JL*IM  I  ) 

IF (JL.E0.il ) GO  10  1000 
KL  *  I  P  l  2 ) 

JsPOL )«E ( JL , 1 ) 

K  sPOL  Y  Mt  (  iv  L  »  P  ) 

GO  TO  SoO 
1000  J=1 

KsPOLoN 

Sort  00  1010  |:J,K 

LNsPOLYi.-U  1  >11) 

00  10<>0  N s  \  ,  L N 

LsPOLYGM  l  ,  N ) 

K 1 stDGE ( 1 ,L  ) 

IMM.Fo.u)  GO  10  10?0 
IKtl)GCIHJ(L)  .EO.l  )  GO  10  NcMl 
E  OGCoG (L ) s 1 
ENtLSI (L)=EOGLSI 
EOGLSIsL 

5^0  |F(M(  1  ,L  )  .f.G.O)  GO  10  S<M 

P(?,L)sl 

go  io  1020 

S2I  P(l,L)sl 

1020  CONI (NMt 
1010  CONI INUt 
RtTUPN 
f  NO 


Z'A 


nnoo 


wmpinoiPKni'ci 


ccccccccccccccccccCCccccccCvCocccLrccccirLCCccrfccccccrcrLCCCcccrcCL 

IGTcliv:  li  used  to  ghiain  Tot  not* -Of  a  free  sh.ment  ololk 
Of  storage. 

cccccccccccccrctccccctrcccctccctccccrcccrcccccf cclclccclclccccccclci 

FUNCTION  IGTHCK(I) 

Cu^MOw  / \ A/LACTyE (o0 )  # IFMt  L3 

cu**on  /in/  itLtf  i(&o),iv«r,Mi(hO) 

I  *  I  f  Ml  Li 
IGtbLKsO 

If ( I  .tO.O)  Mf  ToK% 

mtf  i(i)5i* 

ItRGHl ( | )so 
IFRtl S=l«ttvF (I  ) 

1 1,101*5  l 
RE  TURN 
END 


213 


IGT3LK ( I ) 


214 


o  o  o  o 


CCCCCCCCCCCCCCLLCLCLCiCCCCCCCCCLCLrCCCCCCCCCCCrCCCCCCLCCrcCCCCCCCCCC 


HticUK:  ur turns  a  str.MFM’s  hcii*  of  siowAc-t  to  me  nut 

LIST  . 


ccccccccccccccrtccrcfcrcccccccci ccrcccrcrcccccrcccccecccccccccctci cc 


SUHHOUI  1  Ni  Hi  I  r*L*  (  I  ) 

COMMON  /T4/IACTvE(60),  IFHtl.S 
lACTVf  (I>  =  UHtlS 
IFRf LSs I 
H£  TORN 

eno 


-15 


ccccccccccccccCLCCCLCCCcrtccccrcrcccrtccrLcrrLrcccccccrcrci.ccccLCLiL 

c 

C  SHOk:  DISPLAYS  F  ACM  Str.wFM  wltn  t  >n  .  APPituPP  I  A  1  F.  POLYGONAL 

C  COLOP  OP  SHAOt  ON  IMF  MAMTEK  SCHFtN. 

c 

ccccccccccccccctccccrcccccrcrcccccccccrcccccccccctCLCLrcccccccctctCL 

SUHMOUT  Ifct  3HUIN 

COMMON  /TO/  StGLM  ,LSlSt.G,  I  Y 

COMMON  /  T  *v  /  POL  Sk G  f  oO ) ( PCLGoN ( 60 ) 

COMMON  /AM/  Put  YGN ( oO  <  1  I  )  » POLGN , SM AD ( 60 ) 

CO“MON  /TP/1SH0S<60), ISSFG(oO) 

lNtt'GtW  St  GO  l  *  POL  StG  #  POLGON  #  POL  YGN  #  POt  UN,  SmAO,  vt  C  tllR 
INTEGER  COt HR 
ISAMPsO 
YI  =  IY 

iftsfgcnt.li  .  n  return 

00  700  ]  =  t , 3F  GC  N I 
*1  —  1  SAY  P 

istr.=  isstGi  l ) 

I  *  =  1  SPt'S  1 1  ) 
xa=ix 

IFllStU.tO.O)  GO  to  /to 
IPsPULGONY tStG) 

JLM=SHAO( IP) 

I  l=COLOR(  lL') 

*L  =  VfcC  TOK( *|,YI,«?,Yt) 

IF(KL.LT.O)  GO  to  JSS‘1 
710  tSAMP=l* 

700  CONTINUE 
RE  TOWN 

155<J  r.'WI  IE  (6,  I  > 

1  FORMAI  (<JX,  '  tHt  FOnCIION  VEC1C*  FAlLtP’l 
RE  TOWN 
ENO 


nnnonn 


ccccrcrcccccccccrccLCcccccccrccccLCcccrcccccrcccncccccccrccccr.rtci  .a 

SHOAl'M:  r>U|f»fcS  IrtE  YS  COuMDI  NA  I E  VALUED  HY  1*0  IH  OHL'E> 
lu  UIoPLM  AN  UN-UlSlUWlfc'U  I  VAGE  ON  Ink  PAM  I  EH  A1  1  hE 
NAVAL  PUS1  GMAOuAIE  SC  Nl)OL  nMICM  MAS  OOUHLt  «IOt 
MUM  I  /  UN  I  AL  Nfc.  SOLO  t  l  UN  L  l  fit  S  . 

cccccccccccLCcccccccccrcccccctccccccccccccrccccccccccccrccrccicif u  t 

SURWOUT  1  fit  $MU*IN(  I  I  ) 

COMMON  /AAM/  *M  120  )  ,  r  S  (  I  <*0  )  ,  /5II<?0)  .PfllUlM 

IMLf.tR  POInTM 

Il!|l/? 

00  IhOO  LI  Sl,  PLUM  M 
Y  S  (  L  [  )*YS(Ll  )  /  2 . 0 
I bOo  COMIlNOk 
Mt  r URN 
too 


219 


D  0 

LI» 1 , POlNTM 

1- 

_ J 

' 

YS<I)=YS(I)/2 

^  RETURN  ^ 


ccccccccrtccocrcrctLCtrcrccLCLCcciLLCirLCi  ccrcruxccrictciciccctrict. 

c 

C  LUOaEH:  EXAMINES  iMt  AC  1  I  v  »•  LISI  Of  Stn-tEoTS  mGO  oeukminls 

C  Hu  a  MANY  Ahft  vlt..Af<Lfc  In  IhIi  SPAN.  I  I  AL'JU  GENFMAIIs 

C  A  HOK  amount  all  V 1 1  .iAHLE  SEGMENTS  AND  PAsStS  Thf 

C  NtJMtiEH  OF  StC'AEN  T  3  AMt  IN  lilt  MUX  AND  mix  IV  PL  lu  T  Ilf 

C  ThINKiy. 

c 

ccccccccccclccclccclcc  rcccccccccctccccrcrtrcccrcccricicicccccccici  u. 

SUEOiOli  I  I  Me  lOOKtrt  (  I  ) 

COMMON  /  ID/ Alt  F  I  (  oil ) «  ATM  Gh  I  (60  ) .  ZlEE  I  t  60  )  . JM  I  (,M  I  (ml) 

COMMON  /TL/aSPNLE  ,*SPONG,  xPtSl 
COMMON  /  I  E  /  l  M  xCN  f  *  I O  » I YP 

COMMOw  /ll./riALtE  I  .HaPUMI  ,n/LEf  I  ,0/KGUl  ,rt/',Iu,l»/ >Ax 
COMMON  /  Tn/,}»1  t  i  1  ,  SaRGm  I  ,  S/lF.F  I  ,  S/wGh  I 
COMMON  /I  l  /  1  Mof  01  ,  I  rlSLGP#  0  I  v  ,  o!'  I  V  »  I  up 1 1(  l  »  l  SF  oil 
SxllF I sxlf  F  |  U  ) 

SXEK.M  sxMlGMl  (  I  ) 

S/U-r  Is/LtE  Ml) 

S/MGM  I  3t»  IG-il  (1  ) 

ISFUll=l 

IF  (Ml  FE  t  .01  .  xSPNLF  )  GO  10  i.tl 
S/lt.F  I  ~i  I r,  1  (  y  JjPNlE  ) 

SXltF l=xSPNcF 
CU  (0  6 1 i 
611  ISEUIlso 

61?  IF  (  SxpGHT  .LI.  aSP'IHG  )  GO  10  o  t  a 
S/MGHls/  l •  l T  (  xSPNMG) 

SxWGH I  sxSpNMG 

no  io  6 in 
613  ISFIJLLSO 
6  I  4  SOIV=GXlFEI 

IF  (SAlF.F  r  .1  t  .  XSPMF  )  SPI  VsSXEU.HI 
IF  (  I  M x C »M  I  . NL . 0  )  GO  10  6  I  S 
CALL  LOkDUX (  I  ) 
lit  T  UMN 

61*5  IFCIHxCNr.E.’l  .  t  )  00  in  Mm 
2  1  *  H  2  i  N  I (MLEE  1  ) 

22=b/lNI  (jiHC.Hl  ) 

IE  (  (I)  ALEE  t.LF.SXllFI!  .  A  p>.  (.txOOM  .Gt  .SYPGHr  ) .and. 

&  (/ I  .Lt  .S?L‘ E  r  )  .«N0.  (ZP.cF.S/Pl.HT  )  I  MEIOHN 

71*21*1  (Mxl  I.F  I  ) 

2?*2lot  UUMGHl  ) 

IF  (SKltF  I  .  G  I  ,‘(*LEE  1  )  GO  10  6 1 1* 

IF  (SVkGllt  .1  I  ,i)VKGO?  )  GO  To  ol*( 

IF  121 .Gt .071EF  I  )  r.n  10  Mu 
IF  (2?.GI  .H/hf.iin  1,0  To  olh 
CALL  Kun-ix  (  I  ) 

MltOOO  • 

61*  IF  (  1SF0LL  .!).(>)  GO  10  »,|0 

IF  (  IBFIJLL  .fu.ll )  Go  10  M'» 

UMP*l**LEF  I  »  (llxtu.lif  -  h«L  Ef  11  •  (  S/LF  f  1  -M/IF  F  I  )/ Cb/HGH I- 
&  M/l  tF  I  -S/KC.Ml  «  S/l  E 0  I  ) 

CALL  AE>Ni)MMl) 

U)X I  VP?  l 
til  V*  lt"P 

(E  (h/Lfl  1.1  I . S/lLE  I  )  LALL  I  SnAJ>(  IllStr.l  ,  IHSEG?) 

Ml  10W0 

6I*»  CALL  xPOOIIvm 

Ml lOMN 

Mh  IF  (  ImxCNI  .Lt  .  I  >  Ml  loM’i 

IMiOLtf  l.r.I.lMlIE  f  )  GO  10  h?0 
IE  (S*MGHI  .Li  ,li»MGill  )  t,0  TO  6?0 


IF  <5»*LfFT  .61  ,1'fMtUt  0,0  10  fV<1 
if (S?wr.Hj .r.i ,h; 4|N)  r.o  m 
CALL  LOAOhMl) 

•Ft fOK < 

6^o  iMMim.r.i.MLEm  r.o  to  b,n 

IF  ,l\  ,  :>*k<«ot  )  i.o  to  *>1 

IF  (h/MAx.v,!  ,5iUf  I  )  r.o  Til  f.«;i 
IF  (»/'*aji,i..t  .Stwcon  i;u  to  f.,?i 
•Ft  TU«N 

F»*t  CALI  Lt»NP0*m 

KF  I  U*FN 
F  Nl' 


... 


V.  In 
N  t-i 


ccccccacccLCcci.n:cLCCCCcr.riCLra.Lrcrcrtcc(crrrcrtCLrLcr.cuLaiLrLri. 

c 

C  LUOnPI:  FaAVINFS  |Hfc  AC  f  f  F  l  I  S  (  OK  SIPIMS  AND  OFlEMMl'ItS 

C  now  m«N»  Awt  V 1 1. >x A •'»_ F  M  IMIS  SPA,*.  II  ALSO  litMAAIr.o 

C  A  box  AkOuNO  ALL  vN.iAHLF  StCMKNIS  ANO  PASStS  lot 

C  NuMbEK  OF  SF'GMFNTS  APE  IN  l ME  WOX  A‘iO  HIM  1  TPF.  10  Tnf 

C  ThIWaP. 

c 

ccccccccrcctccctcccccccccLCcroCCCLtLccccri cccucccccccccctccccrca  ( t 

SOMKOOT IUt  L 00"  'M  (  i > 

COMMON  /TO/XLtFWoO).  xPI'Jm  r  ( t>0  1  ,  /Lf  F  1 ( nu ) , /PI GO  I ( oO ) 

Common  /  Tt  /xSRNLF .  <oP\PG ,  a  Mr.  St 
Common  / If / IM*C  <1 » Tn<  1  tp 

COMMON  /  lli/ml[  F  |  ,  NaPNM  I  ,  h/lFF  t  ,  H/Pt.nT  .'l/MlN.  H  V-  A* 

Common  / t m/.>xlf  r  > ,  s i ,  s/i  f*f 1 ,  s;*»o*<r 

COMMON  /II/  HbFGI  ,  loStr.f'.iJ  l  v  .  Gl>'i  V,  I  I'F  01. L  .  I  SF  ULl 
SUtf  1  =Xl  tF  Mi) 

SxPGHlrxPK.nl  (  I  ) 

S7LFF  I  = / L t F  1(1) 

S7PGH1  s  i*  lf.nl  l  l  ) 

ISFOLLsi 

IMSVLEM  .Gl  .xSMNLF  )  (.0  10  oil 

SrfltF|s/INI ( XGPNLF  ) 

SxLtF I rxSHNLF 
GO  10  M<> 

Ml  lSFolL  =  0 

6  I  ?  IF  (SXPGrtT  .L  I  .xSP'iPG)  GO  To  ol$ 

s/pohi  =  i  .j  t  i  aspnpg  » 

SXRGHl saSP’JPG 
GO  10  61 u 
613  ISFOLL=0 
MR  Si)  I  V  rj>  <LEF  [ 

IF  (SXLEFT.LI. .  x;JM:LF  )  s  0  1  v  s  S  \  w  i»M  I 
IFTlMCNT.Nt.P)  GO  10  olS 
CALL  lilAOnx  (  I  ) 

PE  TOWN 

615  IF  (  lh*C  <r  .Nf,  .  I  )  GO  10  nib 
7l=b7INI  (SxLtF  f ) 

?<?S(I71NI  (SXnGFiI  ) 

IF  (  ( B  aL t F  I.Lt  .  S XL  t F  1  ).  AnD  .  ( B<PG)lT  .r.F  .SxHGmT  )  .  ANO. 

I  <7l.Gt.S7LEFTl.ANO.l7/.GE.S/Pv.nn)  KEIllHM 

71  s71Nt  IIIxllF  1  ) 

77  =  7 INT (HxRgmI ) 

lF(SXLEFl.r.l.UXLEFT)  GO  To  6lB 
IF  (SXMGol  .1  I  .MXHGnl  )  GO  TO  MB 
IF  (7  1  .01  .h?LF  FI)  GO  To  MS 
IF ( 7? .0  I . u/PUii 1 )  GO  10  n I H 
CALL  LOAObX(I) 

RF  1UR  <i 

6 1 5  IF (ISFULL.tU.O)  GO  10  n  I  <» 

IF  (IHFIILL.t.J.O)  GO  10  f,|P 

I E  Mp so  x L F  F 1 ♦ ( h  x PGh I *n  aL  t  F  I  1 • ( S7L E F 1 -H 7L F T  I )/(G7RGmI- 
t  H7LLF I »S7PGn I ♦ S7Ltf I ) 

CALL  XP'iOtlX  (  I  ) 

111*  lYPsl 
01  VstF.MP 

IF  (L)7l  FF  1  ,  G  I  .S/LFF  1  )  LAIL  I  SwAF'  (  luSF.G  I ,  I  USE  G7  ) 

RtlOMN 

6  I  P  CALL  iPnOOXU) 

RtlOMN 

616  IF  (  IHXCM  .LI.  .  1)  k’t  TOMN 

IF  (S*LFF  1  .Gl  .IaxlFF  t)  GO  TO  6/0 
I f  ( S X kGm  l.l  I  .inPi.nl )  GO  To  n/u 
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IMSZUM.li.o/max)  r.u  in  o 
IF  (SZWGmT  .Ll  )  Gil  10  rw!0 

CALL  LOAOt>X(I) 

RtTuRn 

if(h*lcf  t.gi  .s«lem)  i in  ru  o?i 
IMUXRGHT.LT.3xnf.HT)  GO  10  t>?l 
IMBZMIN.LT.  SXLtM)  go  10  6<M 
IF  (tiZMIN.LT  .SZRGHl)  GO  10  bi\ 
RFTuRN 

CALL  xPNObX(t) 

RETURN 


nnnnn 


ccccccccccccctcccocccccccLCCCuxcor  cccrcccccccctccccructccctccct.ru. 

BZ  1  >ll  :  IS  I'SF  D  MY  T«E  lUO*tR  10  UfcTtR-MNE  Inf  I'tPlN  (  Iwt  ZS 
VALUfJ  OF  1*E  SF.r.MtxI  HU  <  At  ANY  *S  V  A  L  U  F.  A  l  T  h  I  N  I  H  1  s 
SPAN. 

CCCCCCCCCCCLCLCCCCCCCCCCrcCCCCCCCCCtCCCLCCCCCCCCCCCOCrCCCCCCCCCCCU. 
FUNCT ION  B Z  1  1 1  ( A  ) 

COMMON  /  lu/^LFM  ,  R«RGMI  .‘*ZLF  F  1  .  nzRIlMT  ,  rt7M  J  N .  b  ZM  A* 

IF  (  (tXKlatl  I  »fcU  .  O  KLfc  F  I  t  Uv1  To  Oi?l 

OZ  INTsMZl  tF  I  t  IPZrfOT  -hZLFF  !  )  •  (  x-H*Lt  F  I)  /  ( H  YKi.h  T -H  *L  t  F  I  ) 

RE  1  URN 

6^1  rt  Z  I  N  T  s  M  Z  C  f  F  r 

Rt  TORN 
E  NO 


n  on  n 


cccLCccccccccccccccLCccLCLCcrccccccr.ctcuL<:r<'c.rr.rc(:Lri;c<:cr.ci<:c(  lci  n 

LOAOHx:  1 .»  USfcl'  Ht  (ML  LOOMH  TO  CONSl»UCl  A  liOx  ASOUND  In 
stCKioii  .\hiCM  A^e  vit^.AHLt  in  inis  span. 

CCCCCCCCCCCCCCCCCLCLCCCtCCfCCCCCCCCCCCCCCCCCrccCCtCtCCCCCCCCCU  t f .  (  l 
SURNOOHNl  LOADd *  ( I  ) 

common  /if/ikxcni. Ihxtyp 

COMMON  /  lb/r«KLFF  T  ,'JXttOHl  .SZLtM  ,  I  ,  ll/M  I  N  ,  li  /V  A  * 

COMMON  /Th/:iXLKM,Sx»OHl  ,3?LtFT  ,S/W(,MT 

Common  /  t  i  /  i  #  instw.u  i  v ,  so  I  v,  ihfoll,  isfull 

IbXCNl = l 
IdX  I  Yt'*0 
bXltF l=S*Lf F  I 
HxIiGHI  sbXrfl.Ml 
R/UFIaS/LFFI 
b/MliH  I  =S/K(i*1l 
IHSFOIrl 
H/M|IS:«/UF  I 
h/ma  x  sn/^uM i 

IF  (H/'ilM.ol  .M/VAX  )  call  Sx.AP(OZM|^,h;mAa  | 

DI VsSO  I  V 
I OFULL* i $F  OLL 
St T  OWN 
t  NO 
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nnnnn 


r 


cccccccccictccctccciccccccciccctcu'.  Lcrfcrtccccrcrici  ccctccccci i n icc 

PUT*S1:  Places  HU  SFO’tNl  PASSED  10  11  AS  iHt  C*tl.  1  M> 
PAPAN'EILR  I  1NIU  Of  IHt  XSOWI  Lists,  HSlM(l) 
and  in$Ki;ru), 


cccccccccccccLCCfcccccrcccccrcrcrcrtcccccccrrcccccrcerrcccccci ri art 
SoPWOOl  t Nt  PUlXSHI) 

Cuprum  /it/ 1  xsi.t  1 1  *>o  ) ,  I  xS*o  i  ( t>o ) ,  St  Gt  si 


INTEGER  SEGfSI 

IMStGFsT.NL  .0)  l  *  SLE  I  ( SFGFS  T ) *  1 

1xSLFl(l>=0 

IxSPGl ( I )=StG1 SI 

Sf  GE  S  I  s  l 

Pt  TURN 

tND 


IXSLFT ( I ) =0 
IXSRGT ( I ) «SEGF5T 
SEGFST-I _ . 


nnon 


cccccccccccicirccccLCtccccccccccrtcccccccccfccrcccctciccccccctctcu l 

RMXSRI:  REMOVES  A  SEGMENT  FROM  fHk  XSUHT  LISTS,  JXSRCI(I) 

ANO  IxSLFT(l). 

cc,cccccccccccccLCLCCcerr.cccccccccLC  cccclccccccccccclccccccccccclci  cl 

SUBROUTINE  Rmx.SRT(I) 

COMMON  /TC/lxSLF I (hU)  , 1  xSRGI  («>0) ,  SEC.FST 
iNTtGtR  StGFSI 

IFtSEGFST.EU.  I  )SfGFST  =  l  XSHC.l  (  l  ) 

J= I XSRG 1 ( I  ) 

IF ( J.NE.O)  lXSLFT(J)slxSLFTlt  ) 

JslXSLF  1(1) 

IKJ.NE.O  )  l XSRG I  (  J  )  =  IX SHOT  C  l  ) 

RETURN 

ENO 


W& 


- -  ■  — 


EGFST— IXSPGT( I ) 


IXSLFT( J ) 
IXSLFT ( I ) 


J.IXSLFT(I) 


IXSRGT( J) 
=IXSRGT ( J ) 


o  o  o  o 


ccccccccccccccrtrcrcrccccccrccccrcccrcccrcccrcru'ccLCCCLrccccLfi <  i  <  i 

XPNOHx:  13  CAllEO  f»Y  I  Ht  LniutP  til  XPANI)  I  Hi  Mu  SUHftUGM!  I  ►  . 
f  Mf  VlflsAOit  itGMIMIS  1,4  f  Mi  LPKPlfU  3HAG. 

ccccccccrcccccccccccccccccctccccccccccccci rccicccccutocrcccrcrui  u 

SllHMOOUNt  APNOHX(I) 

COMMON  /It-  /IrtxCM  .  ItulYP 

COMMON  /  tC/>txlkF  T  #  HxRilM  I , H/LE f  t , H^hgm T , o7m I n , rt7 ' A  a 

Common  /TH/H*lFf  T,SxwghT  ,S7Lt  Ft  ,$/pi.mi 

COMMON  /  t  1  /  1M3M.1  .  I  OStGc*.  i)  I  V  »  30 1  V  #  1  M  JLL »  1  SKULL 

imsegi*  insfiit 

loStGUl 
I  OX  I  V Ms ll 
I  H  X  C  M slOxCMT  ♦  I 
IMSOlV.U  .otv  tolvssoi  V 
lftSXLFFT.l t.HXUl  ► t )  IMIE  M*SxUF  I 
IF  (  3XHGMI  .  r.  I  .  HXKf.rt  |  )  0  <MGh  l:Si  PGM  I 
IF  fSitlFF  T  .1  I  .|«7M|N)  |W  AINsS^i  LH 
If  (3*MGmT.11  .*I7mIN) 

IF  (S/LEf  I  .r.  I  .dZMA*  )  H/maxsSXI  l  f  t 
IF  (  S7*Gh  r  ,G  t  .Il/MA»  )  rt  it ’i  A  »  :  S  ^  N  lift  f 
RLIUPN 


-  BZMaX-MAXIMUM  of 
(BZMAX,  SZLEFT,  AND  SZRGHT ) 


nnnno 


p 


CCCCCCCCCCCCCCCCCOCCCCCCCCCCCCCCCCrCCCCCCCfCCCCLCCCCCCCtCCCtCCCCCi  u. 

2 1 N I  :  USEO  Hi  The  LOOKER  10  C0«WUIETnF  DtPlM  T/S  VALUF  ) 

OF  I  HE  CUMPE.N1  SEG'AENI  AT  ANY  *S  VALUE,  .v  I  IrtlN  THIS 
SPAN. 

cccccccccccccccLrcccccccccccccccrcrcccccrcrccccccccccccr.ccctccccccc c 

function  zintoo 

COMMON  /Th/SXLFFT,5XWUU|,S7LFF  T, SZRGHI 
IF  Ew.SXLEFT)  i;0  TO  oei 

? INf XS?IFFT« (SZWGrtT-S^I  EF  t ) • (X-SXLFF T ) / ( SxPGH T -5 XLEF T ) 

WEI  URN 

b a  i ini sszlef  t 

RE  TURN 
ENO 
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ZINT(X) 


ccccccccccccccccccccrcccciccccccccccccccccccr.ccccccccccccercctcca  n. 

c 

C  THINKS:  PECflVES  I  HE  INFORMATION  AR0U1  ML  CONTENTS  OF 

C'  THIS  SPAN  KHlCH  MAS  DEVELOPED  8  V  THE  LOOKER  AND 

C  DETERMINES  IF  THIS  SPAN  CONTAINS  0 1  SPL  A  r  AfiLE 

C  INFORMATION. 

c 

ccccccccccccccccccccccccccccrcccccccccccccccrcccccr.cccrccLCCccccru  L 

SoRROUUNE  THiNKP(IW,I) 

COMMON  /Th/I  VLFFT  (al>) .  I  YRGH T  (nft) 

COMMON  /TC/I  XSLF  T<60) , I aSRGI (oO),SEGFST 

COMMON  /TD/XLEFT (60 ) .XRIGmT  <eO) , 7lEF  T ( 60 ) ,  7M I GHl ( bO ) 

COMMON  / T  t  /  a SPA'LF  ,  XSPNPG, xftf  SI 
COMMON  /If /ItUCNT  ,  loX  T  TP 

COMMON  /TG/OXLFF  I  ,*}xPG01  ,15/LEF  T  ,H£RGHT  .  H  7->  I  N  ,  h  l*  A  X 

common  /t  i  /iesr.oi .  imseg2,!>i  v.sdi  v.  jpfui  l,  ishjll 
common  / T  J  /  I  SEGSV i  I P L  S  I «  I*P(  M,  |PP{  vS 
COMMON  /  T rv  /  IPLSEGIhO  )  ,  l  PLGON  ( ?»A  ) 

COMMON  /TL/OXlF  F  T  (  h'J  )  »  D  aRGH  I  (  uO  J 

INTEGER  StGFSI 

WFM0  =  0 

I M Ins- 1 

lONFsl 

I  ONE  1  =  1 

IFUfUCNT.Nt.O)  GO  10  N2J 
CALL  srOPEPI XSPNRG. IZEPOJ 
I  R=  1 
RE  TORN 

62}  1M  IRxCNT  .ME.  1  )  GO  10  hr") 

IF  (HXLF.FT.NE.XSPMLF)  CALL  S  I  ORE  P  f  M  XL  FF  T  ,  1 1£  KO ) 

CALL  S  TOPEP  ( 8XW(»H  I  ,  IhSFGI  ) 

IF  (bXRGHT  .Nt .  xSP'iKG)  CALL  S  I 0«F  P  (  X  SPNHG ,  I  /.E  «0  ) 

CALL  RFCORDT ImSEGI , iONF >  !  ONE  1  ) 

I R  =  1 
PETURN 

62«  IF  C  IBxT  tP.NE  .  1  )  Gfi  (0  h<?S 
CALL  STOfitP(DlV. ThSEGt ) 

CALL  RECORD!  IHStGl  ,  TONE  ,  I  /  E  K  0  ) 

I SEGSMs I R5F G I  *  1 0000  » I 6SEG/ 

T  =  IMI»LSI 
1 PRE  VS  =  0 

627  IF  (l.FO.O)  GO  TO  h2o 

.  IF  (  ISEGS-M.EO.  IPLSf  G ( 1  ) )  GO  10  6ih 

IPRf  VS=I 
T  =  I XSRGT ( I ) 

GO  10  62  7 

626  IF  ( I  .10.0)  GO  TO  t>?(* 

IF (IPREVS.EO.O)  GO  TO  h?0 

IxSRGI  (  I  PRE  VS  )  =  I X  JPt,  I  (  I  ) 

GO  10  6}0 

62«*  IMPLSIslXSROT 1 1 ) 

6 40  OX LEFT ( I )=R1V-XLEF  I  (  I  ) 

XLfF  T  (  I  /slllv 
OXXSXUF.F  I  (  I  )  aOXLFF  I  (  I) 
ir((<xx.LI.l  )  GO  10  all 
IF  (IXx.UI  .XPFSL)  (.0  10  t>}| 

CALL  P'llXSltl) 

CALL  H E  COHO ( I » I m |N, I PO ) 

GO  10  hi? 

65)  CALL  rFIRLMI) 

GO  10  hi? 

628  .Is  I G  TML  K  (  |  T  I  ) 

IF  (J.Ld.A)  GO  Tu  I  It 0 
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IPLSEG ( J ) s I SFGSM 
1I:IYLFFT< l USE G I ) 

[f(  I  I  .11 . 1  YhGhT  {  IUSF.G  j  )  )  n  =  [YBGHl  (IflSFGI  ) 

IF  (II  .LT.IYLfcF  T(  JoStGP)  )  1 1 :  I  YlEF  T  (  I  HSE  G<? ) 

IF  ( 1 1  .LT  .  I  YBt'.HT  (  PJ^tG^  )  )  1 1  =  1  YRGHI  ( lHSE'G?) 

IYLEFT ( J)  =  I  I 
I PLCON ( J  )  =0 
XLFF T(J)=UlV 
IXSMGI  (J)  =  IN'PLS2 
I  MPLS^= J 

632  CALL  SrORtPIXSPNBG, I8SFG?) 

CALL  RELORfX  MSEC.*?,  I  ZERO,  J  f.'  -iF  ) 

IP:  1 

RETURN 

62 S  I F  (  x SPNL F  . E tJ .  x SPMPG )  GO  10  -s3i 

I  H:(J 
BE  IUP'4 

633  I R= 1 
RETURN 

160  WMl !Elh,ORO) 

999  FOR*A  I  («?X,  •  ImL  MJ^rttR  OF  SFGRfcMS  has  F*CfcFDFO  (HE  SIORAC-t 
dPWOv I  OF  0  * ) 

IM  =  2 
ENO 


24? 
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r>  o  o  o  o  o  o 


ccccccccccccccn.rtctccccr.cccccccrtccccrcccfcccccccccctccccrcci.cccirt 
puis*-*:  stones  the  solesseol  sample  puimto  <the  scam  lime 

DIVISION  H01MS)  OF  thf  PKE3FNT  SCAM  LIME  .xliICM  WILL 
Ht  UStO  III  UivlOE  Tut'  AtxT  SCAM  LIME.  IhIS  RtDUCtS  lnfc 
TIME  HEQUIRED  Tu  PRUCtSS  AMI)  DISPLAT  AM  IMAGE.  THIS 
PMOLEtDUPt  IS  CALLED  riY  SDHWOU TINE  RECORD. 

CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCLCCCCCCCCCCCCCCCCCCrCCLCL 

SlIHR'O  J  I  1  Mt  PUT  SAM  (  x  ) 

COMMON  /TM/SA  Ifrffc  ,  S  AML  SI  t  SAMLMK  (  I  PO  )  *  SAMx  (  I  <*0  ) 

INTEGER  SAME^t*SAMLST,SAMLMi*,S»MX 
IsSAME  ME. 

SAMFRE  *S*Mi  ijm  I  ) 

IF  (SA  ML  ST  .EU.U)  GO  TO  f>S<J 
SAMlNk  (SAmi.ST  )  =  I 

r.o  in  6 is 

6ja  SAMFSTsI 
6 JS  SAMLSTsI 

SAM* ( I ) s  x 
RETURN 
END 
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I-SAMFRE 
SAMFRE-SAMLNK(I ) 


SAMX(I)-X 


o  o  o  n 


CCCCCCCCCCCtCCCCCCCC CtCCCCCtCCCCCCCCCCCCCCCCCCCCrCCLCCCCCCCCCLCCCLCC 

RECORD:  DECIDES  *HICM  SCAN  LINE  SAMPLE  POINTS  SHOULD  Of 
SAVED  TO  DIVIDE  TnF.  Nt  *  T  SCAN  UNt  I M 1 0  SPANS. 

cccccccccccccccccnccccccccccccccccccccccccccrcrccccr.ccccccccccccciCL 

SuBKOUTINt  PE  CORD ( I .LET  I , lwGHl ) 

COMMON  /TN/IVPLFT,XLSISM 

COMMON  /Tu/XLEF l(60),XWIGHT(60),ZLEFT(60),ZRIGHI ( oO > 

COMMON  /TK/P0LSLG16U) , PULGON ( 60 ) 

COMMON  /TL/uXLF_ET(60),0x»Grtl  (oO) 

COMMON  /TH/JVlEF  T  ( 61* )  ,  ITPGHI  thO) 

COMMON  /TP./  SAMf  RE  #S  \  MI  3T  ,SA'-LNK  (|  20)  ,SA'  A  (120  ) 

COMMON  /Tt/  XSPijLF  ,  xSPNRO,  XKF.  SL 

INTEGER  POL  SEG,SA'-,.FKE,SAMLSr,  SAMI  NH,  SAP  X.POLGON 
IF (LET  T.Fu.U)  GO  TO  6S7 
IF ( IMPLFT.f  J.O)  GO  1C  6ib 
IF  (XLtFl  (I)  .Gl  .XSPILF-)  GO  IU  bio 
JsPOLGF G ( ImmlF T ) / 1 00 no 
.  I  1  sPOLSEGl  I",“LF)  )  -  J  *  I  0000 
lKl.uf.in  GO  TO  ft  *6 

X  =  XLfc'F I l IPPLFT ) *  0  XLEF  T ( JuPlF  T  ) 

CALL  PUISAMIX) 

IMPLF  T=0 

656  IF  (1YLEFT  ( t )  .GE  .-1  )G0  TO  e»  5  7 

OEL  =  xSpNLF -l  .u 
XLSXLEF  ( f  I  ) 

IF((L£FT. ,£.-)). AND. ((XL. LF. DEL). OR. (xL.GT.xSPNLF)))  GO  r,'  o  5  / 
IF ( (SAMLSI .NE.O) .AM). ( XLSISM.EO.DEL ) . AND . ( LEF 1 . NE . - I >  ) 

&  GO  10  657 

XSXLEF  m ) ♦OXLEFT  (  I  ) 

CALL  PUT  3AM ( <  ) 

XLSISMsaSPNLF-1 .0 

657  IF  (  IRGMT  .EO.O  )  RFT'frfN 
IFdYRGhM  U.GE.-l)  RF  TOWN 

IF  (XSPNKG.G  I  .  aR  I  r,:t  T  (  I  )  )  RETURN 
UP  =  XSPNKG ♦ T 

IFURIGHT  (  t  j  .GE  .UP)  WF  TURN 
X  =  XRIGHI ( I ) » 0 X PGM  I ( l ) 

CALL  PUTS«M(X> 

XLSISM=<SPNRC 
RETURN 
F  NO 


24? 


f  SAMPLE 
POINT  IS 


X.XLEFT( I ) +DXLEFT( I ) 

XLSTSM-XSPNLF-1 

FUTXST(X) 

\ 

1 


X-XRIGHT( I ) +DXRGHT ( I ) 
XLSTSM-XSPNRG 


ccccccccccccccccccccccccccccccccccccccccccccccrcccccccccctccctccccrc 

c 

C  SlOMFPs  USFU  BY  THE  TH|MKM  (0  PECOPO  THE  DISPLAY  DATA 

C  FOP  THE  CUPHENT  SlA.y  LINE.  THE  XS  VALUES  APE 

C  STOKED  IN  ThF.  AKKAY  TSPUS(l)  AND  THE  SEGMENT'S 

C  INDEX  IS  STUPED  IN  1SSEG(I). 

C 

ccccccccccccccccccccctrcccccccctctccccccccccrccrccccccccccccccccctrc: 

SU0KOUT  (ME  STOKtPU,  I  ) 

COMMON  /TO/SEGCNT.ISTSEO 
COMMON  /TK/ISPOS(i»0),  t  SSEG  (  «* »> ) 

INTEGER  SfcGCNT 

IF  (  CSEGCN I  .  NF  .0)  .  ANO . (  I  .E0.LS1SEG)  )  GU  10  6*40 
SFGCNTsSFGCNT ♦ I 
LSTSFG* I 

640  ISPOSIStGCM  ):» 

ISSEGISEGCNI TsLSTSEO 

PE  TilPN 

END 
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ISPOS ( SEGCNT ) =x 
I3SEG  (  SEGCNT ) =LjT5EG 


APPENDIX  B 


APPLICATIONS  PROGRAM  AND  SUBROUTINES 


Ibe  applications  program  and  its  flow  chart  were 
presented  first.  Next,  the  seven  subroutines  which  enabled 
the  user  tc  determine  polygonal  penetration,  change  the 
coordinate  values  of  a  polygon,  and  alter  the  shade  cr  color 
of  a  polygon  were  listed.  These  programs  and  their  flew 
charts  were  not  included  with  the  3-D  graphics  software 
package  since  their  applicability  was  strictly  related  to  a 
tracking  presentation. 
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non  r»  r>  o  r>  r»  r>  n  non  non  nnonnnn 


- 


ccccctrcccrtCLCCccrtrcccccrcccrcrt  rtrcrcccrcccci:c(.rccccccccccccca.tL 

THIS  is  AN  APPLICATION  PRUGWAM  OFSIGNEO  TO  DEMONSTRATE  The 
usage  OE  THE  THREE-DIMENSIONAL  CON'PurtB  GRAPHICS  software 

PACKAGE.  THE  PROGRAM  SlMULATtS  f ME  TRACMNG  gF  A  TURPEDO  IN  AN 
IRREGULAR  TOPPFGO  TESI  APIA. 


CCCCCCCCCCtCCCLCCCLCLCCCCCCCCCircCCTCrCCCCCCCrCCCCLCCCCCCCCCCCCCCCc 
0 1  PENS  I  ON  I  H  ( <; )  ,S(  S) .  I  o  (  S) ,  r  (  l) ,  T  PACKETS),  T  WACKY  (5) ,  TRACK/ f  ) , 
tP?(5).OvECTt)(  5),M5I,PUM 
OATA  UVfCTO/0. 0,-1 .0,0.0/ 

CALL  INITAI 

CUNVs  IBO.O/i.  1 «  1  S 

IWEDsK 

IPHsS 

ISHA0=1fc 

NMsO 

I  *  I 

IW(2)=S 

R1SUP=0.0 


INITIALIZING  thl  olp  direction  vector 


DO  eo  J=1  . 3 

AO  R  I  SUPsW  1  SUP*OV  tCTG(J)**c? 

MUSI  SCALt  I  HE  IMAGE  OE  THE  TORPEDO  SU  THAI  IT  IS  VISIBLE 

IR(1)=« 

IR(2)='J 

P2(l ) = 1 C.U 

P?(2)=I0.0 

P?(i)=I0.0 

CALL  SCALE (IP, P2) 

ROTATE  IhL  VErtlCLt  SO  THAI  [1  Is  INI  TALLY  BROADSIDE  TO  THE 
V  IE/.E*  . 

TMFI A=oo.O 
1A*15=? 

CALL  HOIAIF ( H, I AxIS,Pl,P2,  I  HI  TA) 

REALMS.  1)  1 
DU  10  JH  ,  l 
10  S(J)=-HJ) 

1  AX  I Ss  S 

BEGIN  The  RECURSIVE  P'.lRIlC*  OF  If'E  PROGRAM 

200  TRACKxfl  )  =  T  (  t  J 
T  M  A  C  K  T ( ITS  1(E) 

IkACkZI I )*t  t i) 

DO  20  J* I  ,  T 
20  TO(J)sKJ) 

DISPl  AY  IhF  TORPEDO  TEST  At-E  »  rITm  H I  OMEN  SURFACES  SHOWN . 

ILOUK 
IP ( I  )  2  1 
1R(2)*S 

CALL  SURF  AC  (  IR.  ILOOia) 

TWANSLAIE  IhF  TORPEDO  10  IIS  PRESENT  LOCATION. 


2rv‘ 


.  C 
•  C 

c 


ILOOKSJ 

IKU)=<l 

CALL.  IRANSU  IR.  S) 

C 

c  c n£ i k  ihf  curhEnt  l uc ati riN  of  ime  torpfoo  ro 

C  OETfcRMINF  IF  II  16  WITHIN  The  test  area. 

c 

IPPsIPENE I (  l*, r  ) 

IF(  IPH.tO.  I  J  <JD  10  220 
IF(lPP.tO.O.AF,l>.IFLAG,fO.  I  1  HU  10  ?«U 
?J0  IMNM.LT.S)  HN*N'* ♦  1 

c 

C  IF  IMIS  M  LEAST  IMF  ScCO.mC  location  of  The  TuHPCDO 

C  iMfcts  OlaPLAY  lot  1WAC*. 

c 

IF  (NF'.GT  .  I  u.0  to  2S0 

c 

c  display  ihf  torpedo  *itm  if-e  mrotn  surf  ale  a  kemoved. 

c 

T«{ 1 >  =  <t 
IR(<?)=« 

CALL  aURFAC  <1H.  ROOM 

c 

C  GET  THE  tOHPFUC'S  \E/i  LOCATION. 

c 

RE  AO (5,1)  T 
UIM 

IFM  (  I  ). LI  0)  STOP 

C 

C  Mur,  COPPuTt  THfc  TAhC.ET  ASPIC  I  OF  t»«E  TURPTOO. 

C 

PI  SUM: 0.0 

pasup=o.o 
00  io  Jsl , T 

S(J)=TOl J)-l ( J) 

RiSUWsH^SOM*S( J ) *«? 
iO  CUNT  I NUb 

R|sSOKT(RISu"> 

R^sSQRT  (R^SUM 
CTHETAsO.O 

00  ao  JsT.T 

flO  C  iHkTAst  TME 1  A  *$l J) »OvlC  TO(J ) 

TMf TAsAMCOS(C TMtTA/lRI «RP) ) 

TMfc  I  A*T hE  I  A  »CUfiV 

N  (  I  )  sDVEC  I  0  (  2  )  *3  (  IT-OwFClUC  J )  *  S  ( «*  > 

N(2)=0VE C 1 0 ( I ) »S ( i ) -DVEC  TO ( 5 ) « S ( 1 ) 
l»(  5)sOVECIO(  I  )  •S(cf)-OVECUi(<')  »S(  I  ) 

00  50  Jst,l 
50  P£ ( J)sT(J)*N(J) 

C 

C  ROTATF  |HF  TORPF.no  ArtOlll  f*F  AFIITRARY  AUS  S>M  CRIED  HY 

C  THE  t.\0  PO I  NTS  PPO  AMP  SO. 

c 

CALL  ROTA  IE ( IR, I  Ax  IS, I ,P?, THE  I  A) 

C 

C  UPDATE  lot  OLD  DIRECTION  vF.CTOW. 

c 

R  I  SUPsR<fSUM 
OU  oO  Js I , J 
60  OvECTO(  JTs.Sl.l ) 

GO  10  ?00 
C 

C  display  tmf  track. 


o  o  r>  noon 


c 

2S0  12=1 
IP  =  U9 

DO  70  J=1,NM 

PI ( I )=TRALKx t 12) 

P I (2 ) s  TRACK  V (12) 

PK3)  =  THACK2<  12) 

12=12-1 

IM17.L1. 1)17  =  5 
CALL  PUTSIM  tP,  J,P1 ) 

70  CON  1 1  Nut 
IRC  1 ) *  I  PH 
!nm  =  iPH 

call  PlSPLYUk) 

CO  10  210 

THE  TOWPEOO  HAS  PtMtTHAlfO  I  HE  IfSl  AREA  CHANGT  MS  CLOP 
AND  ThE  TKACH'S  COLOR  10  R 1 1» . 

220  1FL AG= I 

CALL  CS*iAO(  1R,  IWfcO) 

GO  TO  230 

TORPEDO  IS  MACK  IN  ! HE  TEST  ART  A  sn  CHANGt  ITS  COLOR  TO  HIACK. 

?«0  IE  L  AG  =  0 

CALL  CShAD ( IP, ISHAD) 

GO  10  230 
I  EOPNAI (3C10.3) 

ENO 


peh 


ROTATE TORPEDO  TO  PROVIDE 
INITIAL  BROAD.  IDE  ASPECT 


TRANSLATE  TORPEDO  TO  IT'S 
INITIAL  POSITION 


COMPUTE:  NS;  DIRECTION  VECTOR, 

ANGLE  OF  ROTATION,  AXIS  OF  ROTATION. 
UPDATE  TRACK 


n  o  o  o 


cccccccccccccccuccriccccrtcccccicccccirccccccccLCtrccrccccccctrLCi.r  i 

CMGSGN:  CHAuGtS  Tut  SIGN  OF  TriF!  COEFFICIENTS  F  OK  I  HE 
POLYGUN  K. 


ccccr.cccccccccccccccrcTcccccrccccccccccccrccrcrcccccccrcccccccct  rc  a. 

SUHHOUTINt  CK.Si'»N(<<) 

COMMON  /CA/  POLY  A  (hO  )  .POl.YfUbO)  ,POLYC  (60)  ,POL  YD(60) 

POLTA(K)  =  -PCl f  A ( K ) 

POL  Y  W  ( K  )=-POLYIU*  ) 

POLyC(k)  =  -puLyC<M 

POLYtJCK  )=-O0LYD(K  ) 

RETURN 

END 
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uuuuuuu 


ccccccctccctcccccicirccccici cr n  ciccn  ccri  cti  <  n  t iciclccccicck  i  cn  i 

INltWM:  CoWf'lillS  let  P0IN1  k»M  1  r M  is  ll't  GIOMHWIC  CtMtK 
Of  A  St-  I  llF  CUNYd  HOI  « lit  dW  \ ,  I. (If;,  If  CMANGIS  1  I'f 
SIGN  OF  Tltfc  COHf  IC1H.IS  F  l»<  All  f*dl  YUMS  OF  fcAlli 
POl.  »Htl>KON  SO  lltAI  lot  l' 0  1  OBI.IHJCI  OF  AN  IMfHIOW 
F*0lM  sfllh  1*0  VtlltlW  M(M*At  ..III  Hi  |FSS  1  HAN  2tk'0. 

ccccccccecciccccciccccccccccccnci  i  rctccrn  crcci  ccctccccr cccccccci  n 

SUIIROUliNL  IN  I  (IN) 

OlMfNMuN  I  W  (  c  1 

C0MM0fc  /C  A  /  Pi  l  Y  A  (Ml  1  .  Mill  (H  (htl  1  ,  Pot  V  C  (  Ml)  ,  MOl  Y  0  ( NO  ) 

COMMON  /Co/  *si  v, »  SO*' , /SUM,  it  \  I 
Common  /aa/  **>h  y  t  I  o ,  ?  ) ,  t  ot  yi>n 
Common  /ah/  Pol  vCfiloO,  I  I  1 ,  '’id  '.N,  S»< At*  ( on  1 

COMMON  /Al/  F  I'Gt  I  l  M)  )  ,  root  7  l  f  (I  )  ,  F  I)(.l  N 
COMMON  /T  l  /  PI  Oil*  i.  ( t*no  1 

I  nTFGIH  HOC  Y  Ml  ,  P('i  K.iN.tUil  yCF  ,  HOC  O'. ,  Si*  AO,  i  (Kit  1  ,1  1>G»  ?,f  OGCG  , 
»F»IMANG 

oo  to  i* 1,200 
AO  HCOAMv.l  |  )s0 
J  L  s  I  W  l  I  ) 

Kl*lM(2) 

00  l  <'00  JsJl.M 
Ml  sF'Ol  Y r*F  (  t  ,  I  ) 

Nl  r POL  YMF  (1,7) 

XSUMxo.U 
VSliMsg  .0 
/SlIMsO.O 
I C  M  *  0 

00  1 ? ) 0  KsMl,'"t 

LH*POLVi.Mn  .11) 
no  I  720  Ns  I  ,  L  N 

l  sMOL  Y  |5 N  l  ,  tj  ) 

K  l  =t  tU.t  1(11 
*2sf  IH.F  2  I  l  1 

IF  IfCrtANClK  |  1  .f.j.O)  CALL  MJMM|1(M) 

IF  (HCHA.\r.lK<*).ro.tl)  CALL  Sll'-V|  J  ( K  7  ) 

1270  CONI | NOt 

1210  CONI  I  NHL 
CaICNt 
Y  A  VI  =»StiF  /C 
Y AVI SYSOM/C 
7  AVI  s/SlJM/C 
OO  17  SO  *=Nt  .ML 

IS  ll.MH  A  vl  *F’f*L  Y  A  (  M  *  Y  A  V  I  •  **HL  Y  F<  (  N  )  ♦  7  A  V  t  »  I’l'L  Y  C  (  N  lYl’Ol  Y  IM  *  ) 
IF(  ISIC.N.I.I  .0)  CALI  (Ml.sr.NlM 
12S0  CON  I  I  Mil 
1700  COM  I  Nli( 

F  t  I  OWN 
f  NO 


nnnnnn 


CCCCCcccccccccctcccrcccccictCLCictccrcciacccictccficccccccccca  ru  t 

IPENETS  OtTF.PMlNES  IF  »  POINT  13  OUTSIDE  UF  A  C.IVtM  St  t  1 1  ► 
POLTMtOPA.  IF  IT  is  Of  1 S 1 01  OF  IMF  PiiLYHtOPONS  THIS 
FUNCTION  KE TURNS  4  V  ft  L  0 1  OF  1.  ThTS  FlINCITON  MUST  liF 
USED  IN  CONJUNCTION  hlTM  Sl'llPOU  T  l  Nfc  S  POLLY  *N0  INIFPP. 

ccccccccccccccccciciccrcccctriccciccccccccccccrcrccircccccccccrcci ci 

FUNCTION  IPtNETUK.S) 

OlMtNStPN  S(  5),  !»(<>) 

COMMON  /CA/  PULTft(hOT,POLV‘T(ft(»),PoLVC(hO),POLYlMfcO) 

COMMON  /ftft/  PulYMt ( 1 0, ?) ,POLYON 
INUr.tH  POt  Y  MF  ,Pl't  YMN 
CAT  l  POll  Y  UP) 

CALI  INTFkP(Tk) 

Jl= |P( l ) 

Fl=IM?) 

IuSIOF  =0 
X  =  S(  I  ) 

VsS ( ? ) 

7=S( 5) 

DO  l  POO  I  sJl  iH 
MsPOLYmE (1,1) 

Ml=F>0LV),l  (  l  ,?) 

T  OK  =0 

DU  l«l«  K SMI # ML 

IPPSPOI Y A(K  ) * Y  »POL YM (K ) *  Y »PUl YC (K ) • l *  POL Y 0 ( k  ) 

IF ( 1PP.OT .0)  IOKS1 
1*10  CONTlM.lt 

IK  IOK.tO.0)  INS  IDEs  l 
1800  CONUNUt 
IPFNE I  so 

IFUNSIOE.FU.O)  TPFNF.Tsl 

RETUPN 

END 


nnno 


t 


cccccccccccccccLC(.ccrcccc(.CLCCCcccccrcrcccccccccctccccccccccci.(  ccu:c 

PNTSlN!  AL0u*S  IHC  USER  TO  MEPLAf.t  ANT  VlxltX  OK  POINT  uF 
a  polygon. 

ccccccccccd.crrLo.ccccccccc(:ccccccrcccccccc.cccccccccctccccctrccccc  a 

SUHPOUTINt  PiJISlNt  IP,  J,P) 
dimension  ph) 

COMMON  /AO/  PoLYGN(60. I  I ),POLUtl.SHAD<bO> 

COMMON  /A(_/  EDGE )  (  I  00  )  ,  EDGE<?(  100) , EGGEN 
COMMON  /AAA/  A  f  (  I  <?0  )  ,  Y  E  IIi'0),ZF.  (I«?0),P01NTN 
INTEGER  Pol  YON,  T'f'LGN,  L  Out  1 » EOOEx* ,  EDGEN ,  PO I N I N 
IMJ.tU.  I  I  )  1.0  TO  2  I  I 
NUMsPoL  YGi<I  (IP,  I  i  ) 

N I WUs J“ t 

IFCJ.EO.I )N  TnlisflUM 
LsPOLTGNT IP, J  I 
IZsPOLYv.Nl  1  P ,  h  T  .iO  ) 

MsF.OGt  J  1 1  ) 

Mi«EO»,E^(LP) 

XS(M)*P( ) ) 

XS(M?)sP(l) 

YS(K)sP(?) 

YS(»2)*P(?) 

Zb(M)SP(  \) 

7S(M?)=P( 4) 

RETURN 

?n  POL  TGM  ip,  J)SP{  n 
RETURN 
END 


- 


nnnnnn 


cccccccccca.rr.ci.ccc(.CLa.ccccccri.riCLCi.rLCCCf.rif(;ccct.rcrcccccrca.CLU. 

POLL  V :  LOMPUUS  IMF  POLYGONAL  PLANF  COEFFICIENTS  FOH  A  sF  I 
OF  POL  Y  MF.  OH  A  AS  DETERMINED  MY  T  MF  C  ALL  1  NG  PAWAME  TEW  Ik. 
TH(I)  s  T*«F  TNOtX  OF  IPt  F  T  t<  S  1  POLYmFDRON 

i k ( >  =  n*r  incex  of  i Mt  last  polyhedron 

CCCCCCCCCLCLCCCLCLCt  CLCCCCCCCCCCrcCLCCCCCCCLTCCCCLCLrCCCr.LCCCCCLCLCC 
SOOMOOT |Mt  POLL* (IP) 

OIMEFiblON  IM’(P) 

COMMOli  /CA/  PJL  Y  A  l  to)  )  ,  POL  YH  ( to)  )  ,  PPL  YC  (  60  )  ,  POL  f  D  ( tiO  ) 

COwF'LIA*  /A  a/  PuLYMt ( 10,?) ,pplvhn 

coupon  /At*/  pul > cfj (ofl #  i  i ) # pol gtj 

COMMON  /AL/  Fl’Gt  I  <  t  v>0  )  ,tl'GF  <M  I  00)  ,Fl)GF  N 
CUMMOm  /A  nf./  vnidAldf  (WM.POlM'l 

I  Flit  (it  P  PUL  *  Ml  ,  POL  Y  MM,  Pul  PPLf.  y,  tout  I  ,t  DGF  ?,  t.PGE'N.POl  N  T  U 
JL=|R( T ) 

NL=|Pt?) 

JsPODMF  <JL  .11 

hsPOl YMt (KL ,?) 

00  1010  N s  J  #  K 
LsPOLYOFiFN,  I  ) 

M  =  PULY(.Mi.,<») 

K 1st OUt 1 (L) 

K^rlt)(,F^(L  ) 

K  isLOUt  1  (-1) 

IF  (a  *.F  Q.K  I  .liH.s  J.FU.s?  )  s  XstDGt  ?  tM) 

Y  1  =*F  (M  ) 

Y IsYF  (K  1) 

?|s/E(M  ) 

X«?  =  Af  (he  )  ->  1 
Y«?sY E  ( n ^  -  Y  l 
(Kt1  WI 
*i  =  >F (x  ))-< 1 

V  JsYF ( N S)-Y1 
7JsZF(K j)-;i 

POLYA  i  N  )  s  i  \  «Y1j“Yc>,7  i 
P0LYK(N)  =  a?«7  W  W«? 

POL)ClN)  =  »i«Y?-X,?»Y  ) 

POL  Y  0  ( N )  s-  (POL  Y  A  (N  )  «X  1  «POLYM(N)  «  Y  1  »POL  Y(  (  H  )  •  /  1  ) 

|O10  CONTINUE 

PFIURN  ’  . *  * 

END 


■Ml 


Mi 


I 


IkVaii. 


JL-IR(l) 


KL-IR/2 


J-P0LYHE(JL,1) 

K«P0LYHE(KL,2) 

_  i 


L-P0LYGN(N,1) 

M«POLYGN( N,2) 

Kl-EDGEl(L)  K3-EDGE1CK) 
K2=EDGE2 ( L ) 


;3£ki 

OR 

w3*K2 


K3-EDGE2(M) 


Xl-XE(Kl) 

Yl-YE(Kl) 

Zl-ZE(Kl) 

X2»X£(K2)-Xl 

Y2-YE 

Z2-ZE(K2)-Z1 

X3-XS(K3)-X1 

Y3-YE(K3) 

Y1  Z3«ZE(K3)-Z1 

I 


POLYA (N ) «Y3*Z2-Y2*Z3 
POLYB ( N ) -X2*23-X3*  Z2 
POLYC.(N)  *X3*Y2-X2*Y3  . 

POLYD( N  )  «•—  JPOLYA(N)  *Xl+POLYB(N)  *Y1 
l+POLYC  ( N )  •  Zll 


N-N+l 


nnonno 


ccccccccctccccCLCcctCLCcrLCLTcctccciccci.cfccccct.ctcttcr<:ccccri.CLCLf , 

Submit:  ts  osto  Mr  rut  SOhROUIlNE  inter*  lo  su*  tut  x,  r, 

AND  7  VALUES  FOR  ALL  OF  TMt  VERTICES  I  OH  I  Ht  CURRENT 
PULYHEORON.  APOI1  UlNALLY,  A  KltUMNG  LOOM  UF  ThF 
NijMmER  OF  VtHUCFS  S'IRVtO  In  N A  I N  T  A i Nt  0  . 

CCCtCCCCCCCCCCCtCCCCCCCCCCCCCCCCCCCLCLCCClCCCCCCCCCCCCCLCCCCCLCCn  I  I. 
SUHKOU  ?  I  Nt  SHFXIKK) 

COCHIN  /AAA/  *f  (  l<?0  )  ,YF  (  120 )  .  It  (  120  )  .PfljNtN 
COMMON  /CM/  XSI'M.  tsut',  KM 

CO^'ON  /FF/  PLE4AN(j  (  £0\j  ) 

IMEfitR  PfJ  PilNt  RCM  AM". 

PCmanG(*)=1 
XSUv  =  xSl|M*  lt(H) 
rstiMsrSLivm  (*  i 
ZSIIA'=/SL'M«  7t  (A  1 
ICMslCMH 
return 

END 


ccccccccccrcccccccccfLfcccccrcccrcccccccr.cccccrccccccLCCCLcrccri ci i l 

c 

C  C^HAO:  CHANGES  I  he  SHADE  OR  COLOR  OF  ANY  SET  oF  POLthcDkO  «. 

c 

cccccccccccLrcccccccctTcccrcccccccccccccccrcccrccccLCCcccccccccLri , < 

SUMROUT  I  Pit  CSMALiT  I R  ,  HE  *1 ) 

COMMON  /AA/  PUL  THE (  t 0, ? ) ,E(H  YUN 

COA'RON  /Au/  PULYCMeO#  t  l  )  #P<U  l>N,SHA0(60) 

OlHtNStuK  I  R  (2  > 

integer  Rul  rnt ,rol yhn,pol  ygn.roli;^,  shad 

JL*IP( I  ) 

KL*|P(?) 

JsRULYHE (JL  .  1  ) 

KsPOLYME.  (At.?) 

00  72«  I  a  i .  H. 

SH  AU  (  |  )*Mt  IV 
720  COM  I  NOE 
RE  TURN 
END 


XSUM«XSUM+XE(K) 

YSUM«YSUM+YE(K) 

2SUM-2SUM+ZE(K) 


IXCNT-IXCNT+1 

IYCNT-IYGNT+1 

IZCNT-IZCNT+1 


POLYA ( K ) 
POLYB(K) 
POLYC(K) 
POLYD(K) 


POLYA (K ) 
■POLYB(K) 
POL.YC  ( K ) 
POLYD(K) 
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